you could do something like:

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

I don't see why your code would loop, maybe there is something wrong with $input->getline()?

hope this helps,