VinsWorldcomC:\Users\VinsWorldcom\tmp> perl -alnF"/\./" -e "print join q{.}, reverse @F" zones.txt
10.100.1
10.100.2
10.100.3