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