Help for this page
( undef, $areacode, $exchange, $line ) = $phn =~ m|(1-)?\(?(\d{3})\)?-?(\d{3})-(\d{4})|;
212-555-1212 (212)555-1213 1-(212)-555-1214 1-212-555-1215