PLIF::Service::XML::Char() was the most expensive function in a typical profile. This takes it completely off the radar by not bothering to merge adjacent strings.

webtools/PLIF/PLIF/Service/XML.pm

@@ -185,16 +185,7 @@ sub End {
 
 sub Char {
     my $parser = shift;
-    my($text) = @_;
+    push(@{$parser->{'Current List'}}, 0 => @_);
-    my $currentList = $parser->{'Current List'};
-    my $position = $#$currentList;
-    if (($position > 0) and ($currentList->[$position-1] eq '0')) {
-        # we already have some text, just stick it on the end
-        $currentList->[$position] .= $text;
-    } else {
-        # new text node
-        push(@$currentList, 0 => $text);
-    }
 }
 
 sub Final {