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