$line =~ s/(.*)\#.*/$1/g;