C:\Users\Peter>perl -we "print scalar split('.', '2.3.4', -1)"
6
C:\Users\Peter>perl -we "print scalar split('\.', '2.3.4', -1)"
3