do
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)"
do
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)"