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