$ perl -MData::Dump -e 'dd split( /\./, q{.x.} )'
("", "x")
$ perl -MData::Dump -e 'dd split( q{.}, q{.x.} )'
()
$ perl -MData::Dump -e 'dd split( /\./, q{.x.}, -1 )'
("", "x", "")
$ perl -MData::Dump -e 'dd split( q{.}, q{.x.}, -1 )'
("", "", "", "")