Munge Perl Code