while (my $line = <F>) {
   next unless $line =~ /\bREGEXP\b/;
   $line .= <F>;
   $line .= <F>;
   $line .= <F>;
   print $line;
}