perl -pE"s/(.+)\.(.+)\.(.+)/$3.$2.$1/" zones.txt