cperl-font-lock-keywords-1

cperl-font-lock-keywords-1 is a variable defined in `cperl-mode.el'.
Its value is shown below.

• This variable may be risky if used as a file-local variable.

Documentation:
Additional expressions to highlight in Perl mode. Minimal set.

Value:

(cperl-fontify-update
 ("[ 	]+$" 0 'underline t)
 ("\\(^\\|[^$@%&\\]\\)\\<\\(if\\|until\\|while\\|elsif\\|else\\|unless\\|for\\|foreach\\|continue\\|exit\\|die\\|last\\|goto\\|next\\|redo\\|return\\|local\\|exec\\|sub\\|do\\|dump\\|use\\|our\\|require\\|package\\|eval\\|my\\|BEGIN\\|END\\|CHECK\\|INIT\\)\\>" . 2)
 ("\\(^\\|[^$@%&\\]\\)\\<\\(a\\(bs\\|ccept\\|tan2\\|larm\\|nd\\)\\|b\\(in\\(d\\|mode\\)\\|less\\)\\|c\\(h\\(r\\(\\|oot\\)\\|dir\\|mod\\|own\\)\\|aller\\|rypt\\|lose\\(\\|dir\\)\\|mp\\|o\\(s\\|n\\(tinue\\|nect\\)\\)\\)\\|CORE\\|d\\(ie\\|bm\\(close\\|open\\)\\|ump\\)\\|e\\(x\\(p\\|it\\|ec\\)\\|q\\|nd\\(p\\(rotoent\\|went\\)\\|hostent\\|servent\\|netent\\|grent\\)\\|of\\)\\|f\\(ileno\\|cntl\\|lock\\|or\\(k\\|mline\\)\\)\\|g\\(t\\|lob\\|mtime\\|e\\(\\|t\\(p\\(pid\\|r\\(iority\\|oto\\(byn\\(ame\\|umber\\)\\|ent\\)\\)\\|eername\\|w\\(uid\\|ent\\|nam\\)\\|grp\\)\\|host\\(by\\(addr\\|name\\)\\|ent\\)\\|s\\(erv\\(by\\(port\\|name\\)\\|ent\\)\\|ock\\(name\\|opt\\)\\)\\|c\\|login\\|net\\(by\\(addr\\|name\\)\\|ent\\)\\|gr\\(ent\\|nam\\|gid\\)\\)\\)\\)\\|hex\\|i\\(n\\(t\\|dex\\)\\|octl\\)\\|join\\|kill\\|l\\(i\\(sten\\|nk\\)\\|stat\\|c\\(\\|first\\)\\|t\\|e\\(\\|ngth\\)\\|o\\(c\\(altime\\|k\\)\\|g\\)\\)\\|m\\(sg\\(rcv\\|snd\\|ctl\\|get\\)\\|kdir\\)\\|n\\(e\\|ot\\)\\|o\\(pen\\(\\|dir\\)\\|r\\(\\|d\\)\\|ct\\)\\|p\\(ipe\\|ack\\)\\|quotemeta\\|r\\(index\\|and\\|mdir\\|e\\(quire\\|ad\\(pipe\\|\\|lin\\(k\\|e\\)\\|dir\\)\\|set\\|cv\\|verse\\|f\\|winddir\\|name\\)\\)\\|s\\(printf\\|qrt\\|rand\\|tat\\|ubstr\\|e\\(t\\(p\\(r\\(iority\\|otoent\\)\\|went\\|grp\\)\\|hostent\\|s\\(ervent\\|ockopt\\)\\|netent\\|grent\\)\\|ek\\(\\|dir\\)\\|lect\\|m\\(ctl\\|op\\|get\\)\\|nd\\)\\|h\\(utdown\\|m\\(read\\|ctl\\|write\\|get\\)\\)\\|y\\(s\\(read\\|call\\|open\\|tem\\|write\\)\\|mlink\\)\\|in\\|leep\\|ocket\\(pair\\|\\)\\)\\|t\\(runcate\\|ell\\(\\|dir\\)\\|ime\\(\\|s\\)\\)\\|u\\(c\\(\\|first\\)\\|time\\|mask\\|n\\(pack\\|link\\)\\)\\|v\\(alues\\|ec\\)\\|w\\(a\\(rn\\|it\\(pid\\|\\)\\|ntarray\\)\\|rite\\)\\|x\\(\\|or\\)\\|__\\(FILE__\\|LINE__\\|PACKAGE__\\)\\)\\>" 2 font-lock-type-face)
 ("\\(^\\|[^$@%&\\]\\)\\<\\(AUTOLOAD\\|BEGIN\\|CHECK\\|cho\\(p\\|mp\\)\\|d\\(e\\(fined\\|lete\\)\\|o\\)\\|DESTROY\\|e\\(ach\\|val\\|xists\\|ls\\(e\\|if\\)\\)\\|END\\|for\\(\\|each\\|mat\\)\\|g\\(rep\\|oto\\)\\|INIT\\|if\\|keys\\|l\\(ast\\|ocal\\)\\|m\\(ap\\|y\\)\\|n\\(ext\\|o\\)\\|our\\|p\\(ackage\\|rint\\(\\|f\\)\\|ush\\|o\\(p\\|s\\)\\)\\|q\\(\\|q\\|w\\|x\\|r\\)\\|re\\(turn\\|do\\)\\|s\\(pli\\(ce\\|t\\)\\|calar\\|tudy\\|ub\\|hift\\|ort\\)\\|t\\(r\\|ie\\)\\|u\\(se\\|n\\(shift\\|ti\\(l\\|e\\)\\|def\\|less\\)\\)\\|while\\|y\\|__\\(END\\|DATA\\)__\\|[sm]\\)\\>" 2 cperl-nonoverridable-face)
 ("-[rwxoRWXOezsfdlpSbctugkTBMAC]\\>\\([ 	]+_\\>\\)?" 0 font-lock-function-name-face keep)
 ("\\*&]\\|\\$[a-zA-Z0-9_:]*\\)[ 	]*{[ 	]*\\(-?[a-zA-Z0-9_:]+\\)[ 	]*}"
  (2 font-lock-string-face t)
  ("\\=[ 	]*{[ 	]*\\(-?[a-zA-Z0-9_:]+\\)[ 	]*}" nil nil
   (1 font-lock-string-face t)))
 ("[[ 	{,(]\\(-?[a-zA-Z0-9_:]+\\)[ 	]*=>" 1 font-lock-string-face t)
 ("^[ 	]*\\([a-zA-Z0-9_]+[ 	]*:\\)[ 	]*\\($\\|{\\|\\<\\(until\\|while\\|for\\(each\\)?\\|do\\)\\>\\)" 1 font-lock-constant-face)
 ("\\<\\(continue\\|next\\|last\\|redo\\|goto\\)\\>[ 	]+\\([a-zA-Z0-9_:]+\\)" 2 font-lock-constant-face)
 ("\\<\\(my\\|local\\|our\\)[ 	\n]*\\(#[^\n]*\n[ 	\n]*\\)*\\(([ 	\n]*\\(#[^\n]*\n[ 	\n]*\\)*\\)?\\([$@%*]\\([a-zA-Z0-9_:]+\\|[^a-zA-Z0-9_]\\)\\)"
  (5 font-lock-variable-name-face)
  ("\\=[ 	\n]*\\(#[^\n]*\n[ 	\n]*\\)*,[ 	\n]*\\(#[^\n]*\n[ 	\n]*\\)*\\([$@%*]\\([a-zA-Z0-9_:]+\\|[^a-zA-Z0-9_]\\)\\)"
   (if
       (match-beginning 3)
       (save-excursion
	 (goto-char
	  (match-beginning 3))
	 (condition-case nil
	     (forward-sexp 1)
	   (error
	    (condition-case nil
		(forward-char 200)
	      (error nil))))
	 (1-
	  (point)))
     (forward-char -2))
   nil
   (3 font-lock-variable-name-face)))
 ("\\