perl -we \
'print((split//,"\nechle etn sJutaohrPr akr")\
[map{splice @_,@_/$^F,$^W}(@_=$%..$^F*$=/5)])'