my ($location) = $names =~ /Location:(.*)/i;
    $location= $location=~ /-(.*)/i;