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

##</code><code>##

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