while( ) { print "Found $1 in $file; line $. :offset $-[0]" if /(PASS)/ or /(sweeps)/ or /(Final)/; }