zoffix@ZofMain:/tmp$ time perl -MMojo::DOM -wlE 'say Mojo::DOM->new("<foo><bar>baz</bar></foo>")->at("bar")->all_text'
baz

real	0m0.041s
user	0m0.032s
sys	0m0.008s
zoffix@ZofMain:/tmp$ time perl6 -MInline::Perl5 -e 'use Mojo::DOM:from<Perl5>; say Mojo::DOM.new("<foo><bar>baz</bar></foo>").at("bar").all_text'
baz

real	0m3.935s
user	0m3.856s
sys	0m0.068s