locale=$(echo $lang|perl -p -e 's/^([a-z]{2})-([a-z]{2})$/"$1_".uc($2)/e')
echo "retrieve translated Descs $dist/$part/$lang ($locale)"
(cd us/${dist}/${part}/i18n &&
locale=$(echo $lang|perl -p -e 's/^([a-z]{2})-([a-z]{2})$/"$1_".uc($2)/e')
echo "retrieve translated Descs $dist/$part/$lang ($locale)"
(cd us/${dist}/${part}/i18n &&