use Mojo::DOM;
print Mojo::DOM->new->parse($yourtext)->at('title')->text;