foreach my $lang (@DDTP_LANGUAGES) {
(my $locale = $lang) =~ s/^([a-z]{2})-([a-z]{2})$/"$1_".uc($2)/e;
print "Reading Translations for $lang ($locale)...";
foreach my $lang (@DDTP_LANGUAGES) {
(my $locale = $lang) =~ s/^([a-z]{2})-([a-z]{2})$/"$1_".uc($2)/e;
print "Reading Translations for $lang ($locale)...";