Select Code to Download

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

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

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