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