$ perl -E'say scalar( split( /\./, q{.} ));' 0 $ perl -E'say scalar( split( q{.}, q{.} ));' 0 [download]
Why don't I get an array of two empty strings?
In reply to Bug in split? by shawnhcorey