sub getline {
  my $line = <>;
  chomp $line;

  if (@_) {
    my $reject;

    for (@_) {
      if ($line =~ /$_/) {
        $reject = 1;
        last;
      }
    }
    $line = undef if $reject;
  }
  return $line;
}