class_docstr: For Perl source code.
code: def analyse_text(text):
      if shebang_matches(text, r"perl"):
          return True
  
      result = 0
  
      if re.search(r"(?:my|our)\s+[$@%(]", text):
          result += 0.9
  
      if ":=" in text:
          # := is not valid Perl, but it appears in unicon, so we should
          # become less confident if we think we found Perl with :=
          result /= 2
  
      return result
  
file_path: catboost/contrib/python/Pygments/py3/pygments/lexers/perl.py
imports: import re
  from pygments.lexer import RegexLexer, ExtendedRegexLexer, include, bygroups, using, this, default, words
  from pygments.token import Text, Comment, Operator, Keyword, Name, String, Number, Punctuation, Whitespace
  from pygments.util import shebang_matches
label_desc: Use image node_id 1 for calling the PerlLexer obj's underlying member method code with example usage: obj.analyse_text(text) and returns: result, True