font lock error for Perl

[Super-User]

In GNU Emacs 21.2.1 (sparc-sun-solaris2.8, X toolkit)
 of 2002-10-08 on mailserver

Put the following line in test.pm:

  $content_type =~ /\bboundary\s*=\s*["']?(.*?)["']?(?:;|$)/i;

And all the text after the first double quote will be green until the
end of the file.  You can work around it by using the following
variation instead:

  $content_type =~ /\bboundary\s*=\s*["']?(.*?)['"]?(?:;|$)/i;