in reply to match a word then exit

I want the monks to do my homework to me... 
while( <> ) {
  exit 1 if /error.*error/
}
open ARGV or die;
while( <> ) {
  ... ## do your stuff
}

[download]
[]s, HTH, Massa

In Section Seekers of Perl Wisdom