I assume the following would work:

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

or

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