...
use HTML::Parser;
my $parser = HTML::Parser->new;
$parser->handler( start => \&start_handler, 'tagname, self' );
$parser->parse( $content );


sub start_handler {
    return if shift ne 'li';
    my $self = shift;

    $self->handler( start => \&title_handler , 'tagname, attr' );

    sub title_handler {
        return if shift ne 'a';  
        my $title = shift->{title};
        return unless $title;
        if ( $title =~ /\Q$name\E/sm ) { 
            say $title; 
        } 
    }
}