我想匹配任何不包括'#'但包括'\#'

I'm looking for a perl code line that may contain regexps and comments i need to capture everything until a comment. so i want all characters until # but I AM INTERESTED in capturing # for example, if the line was:I'm looking for a perl code line that may conta