Index: Perl.tmbundle/Syntaxes/Perl.plist
===================================================================
--- Perl.tmbundle/Syntaxes/Perl.plist (revision 6230)
+++ Perl.tmbundle/Syntaxes/Perl.plist (working copy)
@@ -1303,6 +1303,47 @@
begin
+ ((<<) *"XML").*\n?
+ captures
+
+ 0
+
+ name
+ punctuation.definition.string.perl
+
+ 1
+
+ name
+ string.unquoted.heredoc.doublequote.perl
+
+ 2
+
+ name
+ punctuation.definition.heredoc.perl
+
+
+ contentName
+ text.xml.embedded.perl
+ end
+ (^XML$)
+ patterns
+
+
+ include
+ #escaped_char
+
+
+ include
+ #variable
+
+
+ include
+ text.xml
+
+
+
+
+ begin
((<<) *"CSS").*\n?
captures
@@ -1496,6 +1537,39 @@
begin
+ ((<<) *'XML').*\n?
+ captures
+
+ 0
+
+ name
+ punctuation.definition.string.perl
+
+ 1
+
+ name
+ string.unquoted.heredoc.quote.perl
+
+ 2
+
+ name
+ punctuation.definition.heredoc.perl
+
+
+ contentName
+ text.xml.embedded.perl
+ end
+ (^XML$)
+ patterns
+
+
+ include
+ text.xml
+
+
+
+
+ begin
((<<) *'CSS').*\n?
captures
@@ -1699,6 +1773,47 @@
begin
+ ((<<) *XML\b).*\n?
+ captures
+
+ 0
+
+ name
+ punctuation.definition.string.perl
+
+ 1
+
+ name
+ string.unquoted.heredoc.perl
+
+ 2
+
+ name
+ punctuation.definition.heredoc.perl
+
+
+ contentName
+ text.xml.embedded.perl
+ end
+ (^XML$)
+ patterns
+
+
+ include
+ #escaped_char
+
+
+ include
+ #variable
+
+
+ include
+ text.xml
+
+
+
+
+ begin
((<<) *SQL\b).*\n?
captures