push(@list, "($1) $2-$3") if /\(?(\d{3})\)?\s*[-.]*\s*(\d{3})\s*[-.]*\s*(\d{4})/;

##</code><code>##

------------
:Wq
Not an editor command: Wq