$parser->setHandlers(Char => sub {
                my $expat = shift;
                $ocontent = $ocontent . shift;
        }...

##</code><code>##

Char => sub {
                my $expat = shift;
                my $chars = shift;
                $cbuffer = $cbuffer . $chars;
                undef $chars;
        }