while (<DATA>){foreach (split (' ', $_)){ $bub = reverse $_;
print "$bub ";}};print "\b.\n";
__DATA__
tsuJ rehtonA lreP rekcaH