diff --git a/lisp/progmodes/cperl-mode.el b/lisp/progmodes/cperl-mode.el
index 68ad7eda9a73..e3ca1306b79a 100644
--- a/lisp/progmodes/cperl-mode.el
+++ b/lisp/progmodes/cperl-mode.el
@@ -5013,7 +5013,7 @@ recursive calls in starting lines of here-documents."
 				(cperl-postpone-fontification
 				 (- (point) 2) (- (point) 1) 'face
 				 (if (memq qtag
-					   (append "ghijkmoqvFHIJKMORTVY" nil))
+					   (append "gijkmoqFIJKMOTY" nil))
 				     font-lock-warning-face
 				   my-cperl-REx-0length-face))
 				(if (and (eq (char-after b) qtag)