Select Code to Download

print "Enter file name and path of .ins to parse:\n";
my $filename1 = <STDIN>;
...

foreach my $line (@file) {

if ($line =~ /EditorName/) {
my @name = split(/\s+/, $line); 
my $first = $name[1]; 
...
return $found;
}