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

##</code><code>##

print join ' ',reverse split / /,scalar(reverse split //, q/teY rehtona lreP .rekcah/;