my $p = new XML::Parser (Handlers => {Start => sub{hdl_start($tag, $name, @_)},
...

##</code><code>##

sub hdl_start {
    $_[0] = $_[2];
    $_[1] = $_[3];
}