perl -lnE"$,=q{.};say reverse split/\./" zones.txt