First of all, your code doesn't even compile. There are two errors:

elsif($myfile =~ m/[\? ]+(\([0-9]+\))?\.(\w+)\i)
[download]

needs to be changed to

elsif($myfile =~ m/[\? ]+(\([0-9]+\))?\.(\w+)/i)
[download]

and

$newname = join "." $temp, $ext;
[download]

needs to be changed to

$newname = join ".", $temp, $ext;
[download]

At that point it will compile. Please post the code you are actually using.
davidj