Mer' Mirrmurr

Using only Perl keywords (no literals or punctuation):^[3]

not exp log srand xor s qq qx xor  s x x length uc ord and print chr  ord for qw q join use sub tied qx  xor eval xor print qq q q xor int  eval lc q m cos and print chr ord  for qw y abs ne open tied hex exp  ref y m xor scalar srand print qq  q q xor int eval lc qq y sqrt cos  and print chr ord for qw x printf  each return local x y or print qq  s s and eval q s undef or oct xor  time xor ref print chr int ord lc  foreach qw y hex alarm chdir kill  exec return y s gt sin sort split