Select Code to Download

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.