#!/usr/bin/perl

open (RD, "pick no.txt") or die"Could not open file";
@Read = <RD>; close (RD);

open (WR1, ">>Numbers.txt") or die"Could not open file";

for ($i=0; $i<= $#Read; $i++)
{
 if($Read[$i] =~/^Number:/and $Read[$i+1]=~/(\w\w\w\w\w\w-\d\d\d\d-\d\d\d\d)/)
 {
  
  $Number = $1;
  $Number1 = substr ($Number, 7, 9);
  print "$Number1\n";
  print WR1"$Number1\n";
 } 
}