echo $name | perl -pe 's/^([a-z]{3})[^.]+\.([a-z]{3}).*/\1\2/'