open my $datafile ... 
LINE:
while ( my $line = <$file> ) {
    next LINE unless length $line;
    next LINE if ( $line =~ m{\A \s* #}xms;
    process $line;
}