Select Code to Download

my $match = "(?<=module )$ARGV[2].*?([\\(;])";
print "$match";

...

$string =~ s/$match/$ARGV[1]$1/sg;
print "$1";

script.pl f5 NEW OLD
(?<=module )OLD.*?([\(;])
...
    input B;

endmodule