while(my $line = <DATA>) {

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

    # ...
}

##</code><code>##

[\w\d\s\\\/\.\-\@\!\$\%\^\&\*\:\;\,\<\>]

##</code><code>##

/regex\s*=*\s*(.+)|regex\s*=*\s*/