while (<>) {
  unless (parse_line($_)) {
    my $line = <>;
    print $line;
  }
}
[download]

"Perl makes the fun jobs fun
and the boring jobs bearable" - me