perl -aplF"/\./" -E"$_=join q{.},reverse@F" zones.txt