Variable: cperl-font-lock-keywords

(cperl-fontify-update
 ("[    ]+$" 0 'underline t)
 ("\\(^\\|[^$@%&\\]\\)\\<\\(\\(?:BEGIN\\|CHECK\\|END\\|INIT\\|UNITCHECK\\|break\\|c\\(?:atch\\|ontinue\\)\\|d\\(?:efault\\|ie\\|o\\|ump\\)\\|e\\(?:ls\\(?:e\\|if\\)\\|val\\(?:bytes\\)?\\|x\\(?:ec\\|it\\)\\)\\|f\\(?:inally\\|or\\(?:each\\)?\\)\\|g\\(?:iven\\|oto\\)\\|if\\|l\\(?:ast\\|ocal\\)\\|my\\|next\\|our\\|package\\|re\\(?:do\\|quire\\|turn\\)\\|s\\(?:tate\\|ub\\)\\|try\\|u\\(?:n\\(?:less\\|til\\)\\|se\\)\\|wh\\(?:en\\|ile\\)\\)\\)\\>" . 2)
 ("\\(^\\|[^$@%&\\]\\)\\<\\(\\(?:CORE\\|__\\(?:\\(?:FILE\\|LINE\\|PACKAGE\\|SUB\\)__\\)\\|a\\(?:bs\\|ccept\\|larm\\|nd\\|tan2\\)\\|b\\(?:in\\(?:d\\|mode\\)\\|less\\)\\|c\\(?:aller\\|h\\(?:dir\\|mod\\|own\\|r\\(?:oot\\)?\\)\\|lose\\(?:dir\\)?\\|mp\\|o\\(?:n\\(?:nect\\|tinue\\)\\|s\\)\\|rypt\\)\\|d\\(?:bm\\(?:close\\|open\\)\\|ie\\|ump\\)\\|e\\(?:nd\\(?:\\(?:gr\\|host\\|net\\|p\\(?:roto\\|w\\)\\|serv\\)ent\\)\\|of\\|q\\|x\\(?:ec\\|it\\|p\\)\\)\\|f\\(?:c\\(?:ntl\\)?\\|ileno\\|lock\\|or\\(?:k\\|mline\\)\\)\\|g\\(?:et\\(?:c\\|gr\\(?:ent\\|gid\\|nam\\)\\|host\\(?:by\\(?:addr\\|name\\)\\|ent\\)\\|login\\|net\\(?:by\\(?:addr\\|name\\)\\|ent\\)\\|p\\(?:eername\\|grp\\|pid\\|r\\(?:iority\\|oto\\(?:byn\\(?:ame\\|umber\\)\\|ent\\)\\)\\|w\\(?:ent\\|nam\\|uid\\)\\)\\|s\\(?:erv\\(?:by\\(?:name\\|port\\)\\|ent\\)\\|ock\\(?:name\\|opt\\)\\)\\)\\|lob\\|mtime\\|[et]\\)\\|hex\\|i\\(?:n\\(?:dex\\|t\\)\\|octl\\)\\|join\\|kill\\|l\\(?:cfirst\\|ength\\|i\\(?:nk\\|sten\\)\\|o\\(?:c\\(?:altime\\|k\\)\\|g\\)\\|stat\\|[cet]\\)\\|m\\(?:kdir\\|sg\\(?:ctl\\|get\\|rcv\\|snd\\)\\)\\|n\\(?:e\\|ot\\)\\|o\\(?:ct\\|pen\\(?:dir\\)?\\|rd?\\)\\|p\\(?:ack\\|ipe\\)\\|quotemeta\\|r\\(?:and\\|e\\(?:ad\\(?:dir\\|lin[ek]\\|pipe\\)?\\|cv\\|f\\|name\\|quire\\|set\\|verse\\|winddir\\)\\|index\\|mdir\\)\\|s\\(?:e\\(?:ek\\(?:dir\\)?\\|lect\\|m\\(?:ctl\\|get\\|op\\)\\|nd\\|t\\(?:grent\\|hostent\\|netent\\|p\\(?:grp\\|r\\(?:iority\\|otoent\\)\\|went\\)\\|s\\(?:\\(?:erven\\|ockop\\)t\\)\\)\\)\\|h\\(?:m\\(?:ctl\\|get\\|read\\|write\\)\\|utdown\\)\\|in\\|leep\\|ocket\\(?:pair\\)?\\|printf\\|qrt\\|rand\\|tat\\|ubstr\\|y\\(?:mlink\\|s\\(?:call\\|open\\|read\\|seek\\|tem\\|write\\)\\)\\)\\|t\\(?:ell\\(?:dir\\)?\\|imes?\\|runcate\\)\\|u\\(?:c\\(?:first\\)?\\|mask\\|n\\(?:\\(?:lin\\|pac\\)k\\)\\|time\\)\\|v\\(?:alues\\|ec\\)\\|w\\(?:a\\(?:it\\(?:pid\\)?\\|ntarray\\|rn\\)\\|rite\\)\\|x\\(?:or\\)?\\)\\)\\>" 2 font-lock-type-face)
 ("\\(^\\|[^$@%&\\]\\)\\<\\(\\(?:AUTOLOAD\\|BEGIN\\|CHECK\\|DESTROY\\|END\\|INIT\\|UNITCHECK\\|__\\(?:\\(?:DATA\\|END\\)__\\)\\|break\\|c\\(?:atch\\|ho\\(?:m?p\\)\\)\\|d\\(?:e\\(?:f\\(?:ault\\|ined\\)\\|lete\\)\\|o\\)\\|e\\(?:ach\\|ls\\(?:e\\|if\\)\\|val\\(?:bytes\\)?\\|xists\\)\\|f\\(?:inally\\|or\\(?:each\\|mat\\)?\\)\\|g\\(?:iven\\|oto\\|rep\\)\\|if\\|keys\\|l\\(?:ast\\|ocal\\)\\|m\\(?:ap\\|y\\)\\|n\\(?:ext\\|o\\)\\|our\\|p\\(?:ackage\\|o[ps]\\|r\\(?:intf?\\|ototype\\)\\|ush\\)\\|q[qrwx]\\|re\\(?:do\\|turn\\)\\|s\\(?:ay\\|calar\\|hift\\|ort\\|pli\\(?:ce\\|t\\)\\|t\\(?:ate\\|udy\\)\\|ub\\)\\|t\\(?:ied?\\|ry?\\)\\|u\\(?:n\\(?:def\\|less\\|shift\\|ti[el]\\)\\|se\\)\\|wh\\(?:en\\|ile\\)\\|[mqsy]\\)\\)\\>" 2 'cperl-nonoverridable-face)
 ("-[rwxoRWXOezsfdlpSbctugkTBMAC]\\>\\([     ]+_\\>\\)?" 0 font-lock-function-name-face keep)
 ("\\<\\(?:sub\\)\\(\\(?:[[:space:]]\\|\n\\|#.*\n\\)+\\)\\([^ \n	{;()]+\\)\\(\\(\\(?:[[:space:]]\\|\n\\|#.*\n\\)*\\)([^()]*)\\)?\\(\\(?:[[:space:]]\\|\n\\|#.*\n\\)*\\)[{;]" 2
  (if
      (eq
       (char-after
	(cperl-1-
	 (match-end 0)))
       123)
      'font-lock-function-name-face 'font-lock-variable-name-face))
 ("\\_<\\(?:bootstrap\\|import\\|no\\|\\(?:packag\\|requir\\|us\\)e\\)\\(?:[[:space:]]\\|\n\\|#.*\n\\)+\\(?1:\\(?:\\(?:\\(?:[[:alpha:]]\\|_\\)\\(?:[[:word:]]\\|_\\)*\\)?::\\)+\\(?:\\(?:[[:alpha:]]\\|_\\)\\(?:[[:word:]]\\|_\\)*\\)?\\|\\(?:[[:alpha:]]\\|_\\)\\(?:[[:word:]]\\|_\\)*\\)[	 ;]" 1 font-lock-function-name-face)
 ("^[   ]*format[       ]+\\([a-zA-Z_][a-zA-Z_0-9:]*\\)[        ]*=[    ]*$" 1 font-lock-function-name-face)
 ("\\(?:[]%&*>@\\}]\\|\\$\\(?:\\(?:\\(?:\\(?:[[:alpha:]]\\|_\\)\\(?:[[:word:]]\\|_\\)*\\)?::\\)+\\(?:\\(?:[[:alpha:]]\\|_\\)\\(?:[[:word:]]\\|_\\)*\\)?\\|\\(?:[[:alpha:]]\\|_\\)\\(?:[[:word:]]\\|_\\)*\\)\\)[[:blank:]]*{[[:blank:]]*\\(?1:-?\\(?:[[:alpha:]]\\|_\\)\\(?:[[:word:]]\\|_\\)*\\)[[:blank:]]*}"
  (1 font-lock-string-face t)
  ("\\=[[:blank:]]*{[[:blank:]]*\\(?1:-?\\(?:[[:alpha:]]\\|_\\)\\(?:[[:word:]]\\|_\\)*\\)[[:blank:]]*}" nil nil
   (1 font-lock-string-face t)))
 ("[	 (),[{]\\(?1:-?\\(?:[[:alpha:]]\\|_\\)\\(?:[[:word:]]\\|_\\)*\\)[[:blank:]]*=>" 1 font-lock-string-face t)
 ("[[:space:]]*\\(\\_<\\(?:[[:alpha:]]\\|_\\)\\(?:[[:word:]]\\|_\\)*[[:space:]]*:\\)[[:space:]]*\\(?:$\\|#\\|{\\|\\<\\(?:do\\|for\\(?:each\\)?\\|until\\|while\\)\\>\\)" 1 font-lock-constant-face)
 ("\\_<\\(?:break\\|continue\\|goto\\|last\\|next\\|redo\\)[[:space:]]+\\(\\(?:[[:alpha:]]\\|_\\)\\(?:[[:word:]]\\|_\\)*\\)" 1 font-lock-constant-face)
 ("\\(?:local\\|my\\|our\\|state\\)\\(?:[[:space:]]\\|\n\\|#.*\n\\)*\\(?:(\\(?:[[:space:]]\\|\n\\|#.*\n\\)*\\)?\\([$%*@]\\(?:\\(?:\\(?:\\(?:[[:alpha:]]\\|_\\)\\(?:[[:word:]]\\|_\\)*\\)?::\\)+\\(?:\\(?:[[:alpha:]]\\|_\\)\\(?:[[:word:]]\\|_\\)*\\)?\\|\\(?:[[:alpha:]]\\|_\\)\\(?:[[:word:]]\\|_\\)*\\|[[:digit:]]+\\|\\^[?A-Z\\-_]\\|{[[:space:]]*\\^[?A-Z\\-_][A-Z_[:digit:]]*[[:space:]]*}\\|[!\"$-)+-/:-@\\-`|~]\\)\\)"
  (1 font-lock-variable-name-face)
  ("\\=\\(?:[[:space:]]\\|\n\\|#.*\n\\)*,\\(?:[[:space:]]\\|\n\\|#.*\n\\)*\\([$%*@]\\(?:\\(?:\\(?:\\(?:[[:alpha:]]\\|_\\)\\(?:[[:word:]]\\|_\\)*\\)?::\\)+\\(?:\\(?:[[:alpha:]]\\|_\\)\\(?:[[:word:]]\\|_\\)*\\)?\\|\\(?:[[:alpha:]]\\|_\\)\\(?:[[:word:]]\\|_\\)*\\|[[:digit:]]+\\|\\^[?A-Z\\-_]\\|{[[:space:]]*\\^[?A-Z\\-_][A-Z_[:digit:]]*[[:space:]]*}\\|[!\"$-)+-/:-@\\-`|~]\\)\\)"
   (if
       (match-beginning 1)
       (save-excursion
	 (goto-char
	  (match-beginning 1))
	 (condition-case nil
	     (forward-sexp 1)
	   (error
	    (condition-case nil
		(forward-char 200)
	      (error nil))))
	 (1-
	  (point)))
     (forward-char -2))
   nil
   (1 font-lock-variable-name-face)))
 ("\\_<for\\(?:each\\)?\\(?:[[:blank:]]+\\(?:local\\|my\\|our\\|state\\)\\)?[[:blank:]]*\\(?1:\\$\\(?:[[:alpha:]]\\|_\\)\\(?:[[:word:]]\\|_\\)*\\)[[:blank:]]*(" 1 font-lock-variable-name-face)
 ("\\(?:^\\|[^smywqrx$]\\)\\(!\\)" 1 font-lock-negation-char-face)
 ("\\[\\(\\^\\)" 1 font-lock-negation-char-face prepend))