@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;}