open(FILE,"<",$filepath) or die "Couldn't open file for writing: $!"; @error1 = grep { /0 Items in Feed & 0 New Fetched Items/ } ; if(scalar(@error1)>0) { print "match found\n"; print "@error1"; } else { print "nothing"; } close FILE;