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