perl -lpe "join q{.}, reverse split /\./" zones.txt