sub foo{return reverse split//,shift} #no semi-colon :) my $i = foo("oof rab"); print $i; #### $_.=($=+(6<<1));print(chr(my$a=$_));$^H=$_+$_;$_=$^H; print chr($_-39); # Easy but its ok.