$ perl -wle 'print "\."'
.
# so it's the same as /./

$ perl -wle 'print "\\."'
\.
# as a regex, matches a literal dot

##</code><code>##

my $regex = qr{\.}; # matches a literal dot

my @chunks = split $regex, 'dot.delimited.string';