Select Code to Download

#!/usr/bin/perl -w

BEGIN {undef $/;}
...
open OUTFILE, ">$ARGV[0]" || die "Failed to create $ARGV[0]\n";
print OUTFILE ($string);
close OUTFILE;

use Modern::Perl;

my $filename = $ARGV[0];
...
    $line =~ s/$match/module $ARGV[1]/;
    print $OUTFILE $line;
}

#!/usr/bin/perl -w

BEGIN {undef $/;}
...
    next; 
    }
}

my.pl f7 NEW OLD
Now parsing f7
Matching: (?<=module )OLD.*?([\(;])
...
endmodule

INSIDE IF