I was hoping you would do that. :)

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