Select Code to Download

#!/usr/bin/perl

...
        say "address number $1";
    }
}

1234567890 Phone number
2222222222 Phone number
...
address number 45
1233455678x999 Phone number
6666666666x233 Phone number