$str =~ s/^[ \t]*#.*\n//gm;