从字符串中的链接获取网站标题

字符串：“这是徽章，https://stackoverflow.com/badges https://stackoverflow.com/badges布拉布拉布拉”

如果字符串包含一个链接（见上文），我想解析该链接的网站标题。

它应该返回：徽章 - 堆栈内存溢出。

我怎样才能做到这一点？

Thanks.

#!/usr/bin/perl -w

require LWP::UserAgent;

my $ua = LWP::UserAgent->new;
$ua->timeout(10);
$ua->env_proxy;

my $response = $ua->get('http://search.cpan.org/');

if ($response->is_success) {
    print $response->title();
}
else {
    die $response->status_line;
}

See LWP::用户代理 http://p3rl.org/LWP%3a%3aUserAgent。干杯:-)