my @split = split(/\./,$file)[-1];
[download]

That will produce a syntax error:

$ perl -e'my @split = split(/\./,$file)[-1];'
syntax error at -e line 1, near ")["
Execution of -e aborted due to compilation errors.
[download]