in reply to Perl script to Parse a file for a string
/abc/ and print "error\n" and last for <DATA>; __DATA__ 123 456 abc 670 [download]