Match pod that goes to the end (no =cut)

Otherwise a =pod block w/o a =cut wasn't being matched as pod

scripts/shBrushPerl.js

@@ -59,7 +59,7 @@
 			// currently ignoring single quote package separator and utf8 names
 			{ regex: /(?:&|[$@%*]|\$#)[a-zA-Z_](\w+|::)*/g,   		css: 'variable' },
 			{ regex: /\b__(?:END|DATA)__\b[\s\S]*$/g,				css: 'comments' },
-			{ regex: /^=\w[\s\S]*?\n=cut\s*$/gm,					css: 'comments' },		// pod
+			{ regex: /(^|\n)=\w[\s\S]*?(\n=cut\s*\n|$)/g,				css: 'comments' },		// pod
 			{ regex: new RegExp(this.getKeywords(funcs), 'gm'),		css: 'functions' },
 			{ regex: new RegExp(this.getKeywords(keywords), 'gm'),	css: 'keyword' }
 		];

tests/brushes/perl.html

@@ -44,3 +44,10 @@
 __DATA__
 fake file handle
 </script>
+<script class="brush: perl;" type="syntaxhighlighter">
+# comment
+
+=head1 Foo
+
+No 'cut' block, it just ends.
+</script>