while (defined($current_line = $input->getline())) {
  next if $current_line !~ /^\w+-owner:/;
  print "$current_line\n";
}