print "Enter file name and path of .ins to parse:\n";
my $filename1 = <STDIN>;
die "File $filename1 does not exist\n" unless (-e $filename1);

print "Enter file name and path of .rcs to search:\n";<br>
my $filename2 = <STDIN>;
die "File $filename2 does not exist\n" unless (-e $filename2);

open (FILE, "<$filename1) or die "Can't open file $filename1 :$!\n";
my @file = <FILE>;
close FILE;

foreach my $line (@file) {