Select Code to Download

my @items = ();
foreach my $subset ( keys %lookingFor )
...
    local $" = q{|};
    $rxMatchItems = qr{(?:@items)};
}

while ( <$fh> )
{
    next unless m{$rxMatchItems};
    print $writeFh $_;
}