()=/(.*)/s,$_=reverse,print $1 for @_=(
" tsuJ"," rehtonA"," lreP","\nresubA");