( $areacode, $exchange, $line ) = $phn =~ 
    m/(1[-| ]?)?\(?(\d{3})\)?[-| ]?(\d{3})[-| ]?(\d{4})/;

##</code><code>##

212-555-1212
(212)555-1213
1-(212)-555-1214
1-212-555-1215
212 555 1216
(212) 555 1217
1 (212) 555 1218
1 212 555 1219
12125551210