fixed: filtering of rich text areas very slow for large content

docs/changelog/7.x.x.txt

@@ -24,6 +24,7 @@
  - fixed Calendar copy behavior.  In the Asset toolbar, Copy Just this Asset
    was broken.  This has been fixed.  As a side effect, in the Asset Manager
    the default behavior is to copy ONLY the Calendar, and none of the events.
+ - fixed: filtering of rich text areas very slow for large content
 
 7.6.4
  - Survey now will show progress and time limit.

lib/WebGUI/HTML.pm

@@ -64,7 +64,7 @@ sub cleanSegment {
     my $html = shift;
     my $preserveStyleScript = shift;
     my $headers = "";
-    if ($html =~ s{(.*)<body\b.*?>}{}is && $preserveStyleScript) {
+    if ($html =~ s{^(.*)<body\b[^>]*>}{}is && $preserveStyleScript) {
         my $head = $1;
         # extract every link tag
         while ( $head =~ m{(<link\b[^>]+>)}isg ) {