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

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