use strict;
use warnings;

open (my $fh, "<", "testlines.txt") or die "$!";
local $/ = "\n\n";
while (<$fh>) {
    if ($_=~ /(third | four)/si) {
        chomp;
        print "line is: $_\n";
    }
}
close $fh;