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