while ($input->getline()) {
    print if m/^\w+-owner:/;
    # print $_, "\n" if m/^\w+-owner:/;
}