(Perl) a l33t interpreter