Help for this page
perl -lpe "join q{.}, reverse split /\./" zones.txt
perl -F. -lpe "join q{.}, reverse @F" zones.txt