while (my $line = <DATA>) {
    chomp $line;
    $line =~ s/\s*#.*//;
    unless $line =~ /\S/;
    ...
}