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