. is special in regular expressions. You need to escape it:

@file = split(/\./, $file_name);
[download]

Spend some time reading this tutorial and then this for all the gory details.