use strict;
use warnings;

open my $infile, '<', 'sss.txt' or die $!;

while( my $line = <$infile> ) {
    $line =~ /^$/ and die "Blank line detected at $.\n";
    $line =~ /^#/ and next;
    print "$.: $line";
}

close $infile;