perl -anlF"/\./" -E"say join q{.},reverse@F" zones.txt