for (;;) {
   last if not defined (my $line1 = <FILE>);
   last if not defined (my $line2 = <FILE>);

   next if not $line1 =~ /red line/;

   print($line1, $line2);
}