#!usr/bin/perl
use strict;
use warnings;

my $line;

while (defined($line =<DATA>) and $line !~ /^\s*$/)
{
    print "do somehing with non blank line\n";
}  

__END__
do somehing with non blank line
do somehing with non blank line
do somehing with non blank line
do somehing with non blank line