Select Code to Download

print join ' ', map{scalar(reverse split //) } qw/teY rehtona lreP .re
+kcah/;
__DATA__
#output
Yet another Perl hacker.

print join ' ',reverse split / /,scalar(reverse split //, q/teY rehton
+a lreP .rekcah/;