while(my $line = <DATA>) {

    chomp $line ;
    $line =~ s/\s*#.*$//;

    # ...
}