Help for this page
my @items = (); foreach my $subset ( keys %lookingFor ) ... local $" = q{|}; $rxMatchItems = qr{(?:@items)}; }
while ( <$fh> ) { next unless m{$rxMatchItems}; print $writeFh $_; }