use WWW:Mechanize
use Storable;

$url = 'website';
$m = WWW:mechanize->new();
$m->get($url);

my @LINKS = $m->find_all_links(url_regex => qr/$string/i);