in reply to Alternate ways to loop over input (was: I think this is a simple one...)

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

[download]
And look for the <> operator in the manual.

Update: Shame on me to leave that line with next in the first version. Now it is a lot more conscise.

In Section Seekers of Perl Wisdom