What about doing this:

$filename =~ /(.*)\./;
my $basename = $1;
[download]

Since the regex above is greedy, it should capture everything up to the last period. It seems to work for me. Am I missing something?