in reply to Grepping with Perl: How to stop after first match?

Some secondary points: