$ echo "one           
two           
three      
four       
five       
six        
seven            
eight       
nine        
ten" | perl -e'
while ( <> ) {
    last if /seven/;
    }            
print "$.: $_\n";
'
7: seven