$str =~ s/(?:^|\n)[ \t]*#[^\r\n]*//gs ;