use Mojo::DOM;

my $dom = Mojo::DOM->new($mech->content());

print "Title: ".$dom->html->head->title;