use HTML::Query 'Query';
my @p = Query( file  => 'temp_html.html', 'li a[title]'  ); 

for ( @p ) {
    say $_->as_trimmed_text if $_->as_trimmed_text =~ /Bra/;
}