Select Code to Download

use strict;

...
        print "[$p] doesn't look like a phone number to me\n";
    }
}

phone number = (555) 324-1233
area code = 555
...
exchange  = 342
number    = 1234
extention = none