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