$text =~ s<
  (^
    (?:
        [^/'"]+
      | '([^'\\]+|\\.)*'
      | "([^"\\]+|\\.)*"
      | (?<!/)/(?!/)
    )*
  )
  //.*
><$1>xgm;