Select Code to Download

foreach $i(@update){
    $i =~ /^(\d{4})/;    # match and grab into $1 the first four digit
+s
...
        copy($i,$to_dir);
    }
}