use strict;
use warnings;
use 5.010;


my $pattern = '0 Items in Feed & 0 New Fetched items';

open(my $INFILE, "<", "data2.txt") or die "There was a problem: $!";

while (my $line = <$INFILE>) {
    print $line if $line =~ /$pattern/;
}


##</code><code>##

while (<$INFILE>) {
    
}