It should really be written as split /\./, $file though, since split actually uses a regex as the delimiter. Passing a string is misleading and may trip someone who casually reads your code.

Makeshifts last the longest.