my $twig = XML::Twig->new(
                          twig_handlers => { $sel => \&title},
                          pretty_print => 'indented'
                         );
# ...
sub title
{
    my ($twig, $tit) = @_;

    $tit->set_gi('tit') unless $tit->level('title') == 2;
}