my $url = undef;
local{
  $_ = $mech->content; #not sure if mech let's you do  
                       #this...basically you want to load
                       #the $_ var with the data that holds
                       #the url
  m{<strong.*?(http://.*?)&};
  $url = $1;
}
print $url;