$_ =~ s/\(?(\d{3})\)?  # area code with optional parentheses
        [-.\s]?        # possibly followed by separator
        (\d{3})        # first part of number
        [-.\s]?        # optional separator
        (\d{4})        # last part of number
       /$1-$2-$3/x;