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