use LWP::Simple;
my start = "link.here";
my $content = get($start);

$content =~ m//# ?