Perl Code Compressor