()=/(.*)/s,$_=reverse,print $1 for @_=( " tsuJ"," rehtonA"," lreP","\nresubA"); [download]
In reply to Thanks to Rudif by japhy