Instead of escaping the dots explicitly, you could set the RE to escape special characters for you. This is useful when you may need to expand an arbitrary delimiter.

@foo = split("\Q$delim\E", $string);
[download]