class_docstr: For `Perl <http://www.perl.org>`_ source code.
code: def analyse_text(text):
      if shebang_matches(text, r"perl"):
          return True
      if re.search("(?:my|our)\s+[$@%(]", text):
          return 0.9
  
file_path: wandb/wandb/vendor/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
  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: True, int