my $title;
$res->content =~ m|<title>(.+?)</title>|i and $title = $1;