$line =~ s/^([^#]*)#.*$/$1/;