Here's a small japh I whipped up today:

s iir ejkucsath  alnroetph eri;split$+;print$_[$-++]until($-++>$#_);pr
+int$_[$---]until($---<1);
[download]

Yak it up with the Fullscreen ChatBox