diff --git a/queries/perl/highlights.scm b/queries/perl/highlights.scm
index 11eff3aee..1002ae5a2 100644
--- a/queries/perl/highlights.scm
+++ b/queries/perl/highlights.scm
@@ -129,11 +129,14 @@
 (string_double_quoted)
 (string_qq_quoted)
 (bareword)
+(transliteration_tr_or_y)
+] @string
+
+[
 (regex_pattern_qr) 
 (patter_matcher_m)
 (substitution_pattern_s)
-(transliteration_tr_or_y)
-] @string
+] @string.regex
 
 (escape_sequence) @string.escape