Make sure the file doesn't have more than one dot..

my ($suffix) = $file =~ m/([^\.]+)$/;
[download]