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