perl -F. -lpe "join q{.}, reverse @F" zones.txt