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

##</code><code>##

perl -F. -lpe "join q{.}, reverse @F" zones.txt