типа так
#!/usr/bin/perl

use LWP::UserAgent;

$ua = LWP::UserAgent->new;

$res = $ua->get('http://mail.ru/index.php', {
'referer' => '',
'CookieDate' => 1 });

$text = $res->as_string;

$text =~s/<a href="(.*)"/$text=$1/gie; так или $text =~s/(.*)gref="//gi; или так $text =~s/"(.*)//gi;

print $text;