elsif($myfile =~ m/[\? ]+(\([0-9]+\))?\.(\w+)\i) #### elsif($myfile =~ m/[\? ]+(\([0-9]+\))?\.(\w+)/i) #### $newname = join "." $temp, $ext; #### $newname = join ".", $temp, $ext;