[Perl] Rename downloaded file like "file(1).zip"

download_rename.pl

#!/usr/bin/perl
while(1) {
    foreach(<*(1)*>) {
        next if (/\.crdownload$/);
        /(\S+)\s?\(\d\)(\.[^\.]+)?$/;
        $new_name = "$1$2";
        if (rename($_, $new_name)) { print "$_ -> $new_name\n"; }
        #else { print STDERR "failed to rename: $_"; }
    }
    sleep(1);
}