Patch for perl.vim to support ! as quote-like operator delimiters:

*** d:\source\vim\vim61\runtime\syntax\perl.vim    Thu Mar 27 12:28:19
+ 2003
--- c:\progra~1\vim\vim61\syntax\perl.vim    Thu Mar 27 12:30:12 2003
***************
*** 292,312 ****
--- 292,316 ----
  syn region perlQQ        matchgroup=perlStringStartEnd start=+\<q(+ 
+end=+)+ contains=@perlInterpSQ,perlBrackets
  syn region perlQQ        matchgroup=perlStringStartEnd start=+\<q{+ 
+end=+}+ contains=@perlInterpSQ
  syn region perlQQ        matchgroup=perlStringStartEnd start=+\<q/+ 
+end=+/+ contains=@perlInterpSQ
+ syn region perlQQ        matchgroup=perlStringStartEnd start=+\<q!+ 
+end=+!+ contains=@perlInterpSQ
  syn region perlQQ        matchgroup=perlStringStartEnd start=+\<q[qx
+]#+ end=+#+ contains=@perlInterpDQ
  syn region perlQQ        matchgroup=perlStringStartEnd start=+\<q[qx
+]|+ end=+|+ contains=@perlInterpDQ
  syn region perlQQ        matchgroup=perlStringStartEnd start=+\<q[qx
+](+ end=+)+ contains=@perlInterpDQ,perlBrackets
  syn region perlQQ        matchgroup=perlStringStartEnd start=+\<q[qx
+]{+ end=+}+ contains=@perlInterpDQ
  syn region perlQQ        matchgroup=perlStringStartEnd start=+\<q[qx
+]/+ end=+/+ contains=@perlInterpDQ
+ syn region perlQQ        matchgroup=perlStringStartEnd start=+\<q[qx
+]!+ end=+!+ contains=@perlInterpDQ
  syn region perlQQ        matchgroup=perlStringStartEnd start=+\<qw#+
+  end=+#+ contains=@perlInterpSQ
  syn region perlQQ        matchgroup=perlStringStartEnd start=+\<qw|+
+  end=+|+ contains=@perlInterpSQ
  syn region perlQQ        matchgroup=perlStringStartEnd start=+\<qw(+
+  end=+)+ contains=@perlInterpSQ,perlBrackets
  syn region perlQQ        matchgroup=perlStringStartEnd start=+\<qw{+
+  end=+}+ contains=@perlInterpSQ
  syn region perlQQ        matchgroup=perlStringStartEnd start=+\<qw/+
+  end=+/+ contains=@perlInterpSQ
+ syn region perlQQ        matchgroup=perlStringStartEnd start=+\<qw!+
+  end=+!+ contains=@perlInterpSQ
  syn region perlQQ        matchgroup=perlStringStartEnd start=+\<qr#+
+  end=+#[imosx]*+ contains=@perlInterpMatch
  syn region perlQQ        matchgroup=perlStringStartEnd start=+\<qr|+
+  end=+|[imosx]*+ contains=@perlInterpMatch
  syn region perlQQ        matchgroup=perlStringStartEnd start=+\<qr(+
+  end=+)[imosx]*+ contains=@perlInterpMatch
  syn region perlQQ        matchgroup=perlStringStartEnd start=+\<qr{+
+  end=+}[imosx]*+ contains=@perlInterpMatch
  syn region perlQQ        matchgroup=perlStringStartEnd start=+\<qr/+
+  end=+/[imosx]*+ contains=@perlInterpSlash
+ syn region perlQQ        matchgroup=perlStringStartEnd start=+\<qr!+
+  end=+![imosx]*+ contains=@perlInterpSlash
  
  " Constructs such as print <<EOF [...] EOF, 'here' documents
  "
[download]