This is my first attempt at a JAPH :-)
Am I on the "right way" ? ^_^
(i've made it to be 3x78, but the code tag breaks at column 70 - too lazy to change that :-) )

@foo=split//,'0o1i2u3e4a';%'foo=@'foo;$'foo=join'',(sort@'foo)[0..-1+k
+eys%'foo
];@'bar=split//,'ZU!$0$';for(@'foo=qw(this is not a jus7 4n0th3r p3rl 
+h4ck3r ,
i think)){print,print'*'&($'bar[--$#bar])if s/7/t/...!s/([$'foo])/$foo
+{$1}/g;}
[download]