use warnings;
while(<DATA>) { warn if /X/ }
__DATA__
foo
bar
quzX