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