diff -r 840c3cadb842 runtime/indent/perl.vim
--- a/runtime/indent/perl.vim	Tue Nov 16 20:34:40 2010 +0100
+++ b/runtime/indent/perl.vim	Wed Nov 17 23:14:27 2010 +0100
@@ -124,7 +124,7 @@
     " Indent blocks enclosed by {}, (), or []
     if b:indent_use_syntax
         " Find a real opening brace
-        let bracepos = match(line, '[(){}\[\]]', matchend(line, '^\s*[)}\]]'))
+        let bracepos = match(line, '[(){}[\]]', matchend(line, '^\s*[)}\]]'))
         while bracepos != -1
             let synid = synIDattr(synID(lnum, bracepos + 1, 0), "name")
             " If the brace is highlighted in one of those groups, indent it.
@@ -141,7 +141,7 @@
                     let ind = ind - &sw
                 endif
             endif
-            let bracepos = match(line, '[(){}\[\]]', bracepos + 1)
+            let bracepos = match(line, '[(){}[\]]', bracepos + 1)
         endwhile
         let bracepos = matchend(cline, '^\s*[)}\]]')
         if bracepos != -1
@@ -153,7 +153,7 @@
             endif
         endif
     else
-        if line =~ '[{\[(]\s*\(#[^)}\]]*\)\=$'
+        if line =~ '[{[(]\s*\(#[^)}\]]*\)\=$'
             let ind = ind + &sw
         endif
         if cline =~ '^\s*[)}\]]'