use warnings; use strict; use autodie; while () { next if (//); print; } __DATA__ #### $ perl tst.pl