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+keys%'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;}