for($"=@_=split//,"Jrsk an treP rehlohacteu,";$";$\="\r"){$\.=$.=chr 32+95*rand,$_-$"or$.ne$_[1&--$"?-1-$":$"]&&$"++for++$|..$";print}<> # jlaire