use warnings; use strict; while () { chomp; print "ERROR $_\n" unless $_ eq 'X'; } __DATA__ X XA XB