match: while(<YP>) {
chomp;
for $prev (@matches) {
- next match if $prev eq $_;
+ next match if (lc $prev) eq (lc $_);
}
print "$_\n";
flush;
match: while(<WP>) {
chomp;
for $prev (@matches) {
- next match if $prev eq $_;
+ next match if (lc $prev) eq (lc $_);
}
print "$_\n";
flush;