Select Code to Download

my @links = $res->find_all_links( url_regex => /\bvar=/ );
foreach my $link (@links){
...
  warn "URL is " . $link->url;
  warn "Value is '$1'";
}