here's my fledlging japh based on the above. Please be gentle :)

@lines=("japh","unea","sorc","ttlk"," h e"," e r"," r  ");
print join("", map { s/(.)//s ? $1 : " " } @lines), "\n" while length 
+join "", @lines;
[download]

I think I'm starting to understand map. It is a wierdness.