while(<>) {
    s/^\s*(\S)/$1 ne "#" ? $1 : next()/ge;
    # process non-comment line
}