use XML::Twig;
my $t= XML::Twig->new( twig_handlers => { '//li/a[@title=~ /Bra/]' => sub { say $_->text } } );
$t->parsefile( 'temp_html.html');