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

------------
:Wq
Not an editor command: Wq
[download]