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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

perl -pE"s/(.+)\.(.+)\.(.+)/$3.$2.$1/" zones.txt