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