in reply to Perl script compressor
Rather than reinvented the wheel look at something like Perl::Strip.