;; look in ../share/emacs/20.3/etc/rgb.txt for more colors
(hilit-set-mode-patterns
   'perl-mode
    '(
      ;; comments 
      ("^\\([#].*$\\)" nil lightgreen)
      ("[ \t][#][ \t].*$" nil orange)

      ;; top
      ("^sub +.*$" nil green)

      ;; errors

      ;; strings without variable substitution
      ("'.+'" nil moccasin)
      ("'" "'" moccasin)

      ;; variables
      ("[@%$][{#]?[A-Za-z_0-9]+}?" nil gray80)

      ;; strings
      (hilit-string-find ?' moccasin)
      ("[<][<] *\"END\"" "^END" moccasin)

      ;; keywords 
      ;; file commands
      ("[^A-Za-z_0-9]-[a-zA-Z][^A-Za-z_0-9]" nil cyan)
      ;; substitution and matching commands
      ("[^A-Za-z_0-9][sm][^A-Za-z_0-9]" nil cyan)

      ;; evals
      ("`.+`" nil SkyBlue)
      ("`" "`" SkyBlue)

      ;; left-over words are keywords
      ("\\<[^@%$0-9][a-z]+\\>" nil cyan)
   

    )
)

;;