$ perl -E'say scalar( split( /\./, q{.}, -1 ));'
2
$ perl -E'say scalar( split( q{.}, q{.}, -1 ));'
2