(defvar cperl-compilation-error-regexp-alist-lanx-patch
  '(
    ;; PERL 4
    ("^[^\n]* in file \\([^ ]+\\) at line \\([0-9]+\\).*" 1 2)
    ;; PERL 5   Blubber at FILE line XY, <XY> line ab.
    ("^[^\n]* at \\([^ ]+\\) line \\([0-9]+\\)," 1 2)
    ;; PERL 5   Blubber at FILE line XY.
    ("^[^\n]* at \\([^ ]+\\) line \\([0-9]+\\)." 1 2)
    )
  "Alist that specifies how to match errors in perl output.")
 
(if (fboundp 'eval-after-load)
    (eval-after-load
	"mode-compile"
      '(setq perl-compilation-error-regexp-alist
	     cperl-compilation-error-regexp-alist-lanx-patch)))