while ( my $line = <>) {
    next if $line =~ m/^\s+$/; # <-- add this line
    my @cellen = ( split( /,/, $line ) )[ 3, 4 ];