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