$fileName = $ARGV[0]; 
$OldVer="1.1.2.1-ABCD-PQ00.1.1.2.1.TAG";
$NewVer="1.1.2.2-ABCD-PQ01.1.1.2.2.TAG";
print "OldVersion :: $OldVer \n";
print "NewVersion :: $NewVer \n";

#Open Inputfile to read line by line data
$file1 = $ARGV[0];
open(INPUTFILE,"<",$file1) || die "File to read could not be found. $!";

# Create a .tmp file to copy search and replaced data 
$file2 = $ARGV[0].".tmp";
# Open output file in write mode
open(OUTPUTFILE,">",$file2) || die "File to write could not be found. $!";

print "Calling SearchAndReplace subroutine ... \n";
searchReplace();

sub searchReplace {
	# Read the input file line by line
	while (<INPUTFILE>) {

		$_ =~ s/$OldFPVer/$NewFPVer/;
		print OUTPUTFILE $_; 

	}
	close INPUTFILE;
	close OUTPUTFILE;
}