Select Code to Download

for (@Read){
    while (m/Number-(\d{4}-\d{4})/g){
...
         print WR1 "$1\n";
    }
}