Select Code to Download

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

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

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

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