(my $title) = $res->content =~ m|<title>([^<]+)</title>|i;