use strict;
use warnings;

open my $fh, "+<", "testlines.txt";

while (<$fh>) {
	if ($_=~ /(third | four)/si) {
		chomp;
		local $/ = "\n\n";
		print "line is: $_\n";
	}
}