
($lang, $country) = ($loc =~ /(.*)_(.*)\..*/);

# print "Language is $lang; Country is $country\n";

if ($lang eq "de") {
  $res = "german";
  }
else {
  $res = "english";  
}

$res =~ s/[ *.]/\\$&/g;
print $res;
