$name1 =~ s/(.+)$location.*/$1/;