Here is what I have:
open INFILE, "<", "$inputfile";
open OUTFILE, ">", "$outfile";
@array = qw{ Element1 Element2 };
if ( ! open INFILE, "<", "$inputfile") {
die "Cannot open INFILE: $!";
}
while (<INFILE>) {
if ($_ =~ m/(str1)|(str2)/sg) {
chomp;
$regex = $_;
foreach $list (@array) {
print OUTFILE "\$list is $list\n";
print OUTFILE "String is $regex\n";
}
}
}
close INFILE;
close OUTFILE;
What I am getting is:
\$list is ELEMENT 1
String is str1
\$list is ELEMENT 2
String is str1
\$list is ELEMENT 3
String is str1
I want this output:
\$list is ELEMENT 1
String is str1
\$list is ELEMENT 2
String is str2
\$list is ELEMENT 3
String is str3