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;}
its my first one, so let me know what you guys think.