#!/usr/bin/perl -w

BEGIN {undef $/;}

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

my $filename = $ARGV[0];

open (INFILE, "<", $filename)  or  die "Failed to read file $filename : $! \n";

$string =  <INFILE>;
close INFILE;

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

open OUTFILE, ">$ARGV[0]" || die "Failed to create $ARGV[0]\n";
print OUTFILE ($string);
close OUTFILE;