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