if ($filelist =~ /(FRAUD-REPORT\d+\.CSV)/i) {
        $newfile = $1;
        push(@curr, $newfile);
    }