Help for this page
( $areacode, $exchange, $line ) = $phn =~ m/(1[-| ]?)?\(?(\d{3})\)?[-| ]?(\d{3})[-| ]?(\d{4})/;
212-555-1212 (212)555-1213 ... 1 (212) 555 1218 1 212 555 1219 12125551210