use HTML::TreeBuilder::XPath;
my $tree= HTML::TreeBuilder::XPath->new;

$tree->parse_file( 'temp_html.html');
my @v=$tree->findnodes_as_strings( '//li/a[@title=~ /Bra/]' );

say for @v;
$tree->delete;