If you really want to remove all but the first occurance:

$filename =~ /\./;
substr($filename, $-[0]+1) =~ s/\.//g if @-;
[download]