Select Code to Download

my ($location)   = $html =~ m/Location:\s*([^<]+)/i;
my ($time)       = $html =~ m/Time:\s*([^<]+)/i;
...
    }gex;
  return $unescape;
}

my @location   = $html =~ m/Location:\s*([^<]+)/gi;
# first match will be in $loction[0] and last match (no suprisingly) i
+n $location[-1]