my @urls = $response->content =~ m{(http://.*?/.*?) }g;
print $_,"\n" for(@urls);