diff --git a/Syntaxes/Perl.plist b/Syntaxes/Perl.plist
index c863982..29f6aaf 100644
--- a/Syntaxes/Perl.plist
+++ b/Syntaxes/Perl.plist
@@ -2190,28 +2190,40 @@
comment
- Match empty brackets for ↩ snippet
+ Match empty parenthesis for ↩ snippet
match
- (\{)(\})
+ (\()(\))
- captures
+ begin
+ \{
+ beginCaptures
- 1
+ 0
name
- punctuation.section.scope.begin.perl
+ punctuation.section.scope.begin.js
- 2
+
+ comment
+ Match a code block or a hash data.
+ end
+ \}
+ endCaptures
+
+ 0
name
- punctuation.section.scope.end.perl
+ punctuation.section.scope.end.js
- comment
- Match empty parenthesis for ↩ snippet
- match
- (\()(\))
+ patterns
+
+
+ include
+ $self
+
+
repository
@@ -4605,6 +4617,47 @@
name
variable.other.readwrite.global.special.perl
+
+ begin
+ ([\$\@\%\&]\{)
+ beginCaptures
+
+ 0
+
+ name
+ variable.other.readwrite.global.special.perl
+
+ 1
+
+ name
+ punctuation.definition.variable.perl
+
+
+ contentName
+ meta.embedded.block.perl
+ end
+ (\})
+ endCaptures
+
+ 0
+
+ name
+ variable.other.readwrite.global.special.perl
+
+ 1
+
+ name
+ punctuation.definition.variable.perl
+
+
+ patterns
+
+
+ include
+ $self
+
+
+