Here's another variant. (This works only on perl 5.14 or newer.)

$_="\rH48lpt|nFfb^62RN|1eQ=qu|KkC?;[WwO"; 
select$,,q,,,q$$,3/y$4-w0-3$0-w$while$|=print y(0-{)
"JPr,ueersrhetltk  oc  naJPahue  sr  tlr,  er  heJPtkueocsrnatlah "r
[download]