it doesn't work with strict or warnings, though it could with relatively minor changes.

$_="wtjc eutkralr\nsahoer!hne P ";
@@=split'';$$=$|;$$++;{$$*=2;$$%=29;if(!$$%28){exit}print("$@[$$]");$$
+++;redo;}
[download]

its my first one, so let me know what you guys think.