use strict;
use WWW::Mechanize;
my $mech = WWW::Mechanize->new();
$mech->quiet(1);
$mech->get("http://www.thesite.com/sample.asp");
my $content = $mech->content();
$mech->content =~ qr(\.location = "(http://.*?)")
  or die "Couldn't find anything matching '.location = \"http://...\" in $content";
my $new_location = $1;
print $new_location;
$mech->get($new_location);
print $content;