my$a=q&&;my$i=q ;uJts natoehr ePlr ahkcre.;;my $j=q; s@([a-z])([a-z])@$2$1@ig;; @_=split( /\s/,$i);foreach (@_){ eval($j); $a.= $_.q; ; ;}print $a."\n" ; [download]
In reply to A first attempt by jgallagher