or download this
s2p 's#[^0-9]*\([0-9]\{3\}\)[^0-9]*\([0-9]\{3\}\)[^0-9]*\([0-9]\{4\}\)
+#(\1) \2-\3#'
Having no space between pattern and following word is deprecated at (e
+val 1) line 27.
Bareword found where operator expected at (eval 1) line 27, near "s #\
+D*(\d{3})\D*(\d{3})\D*(\d{4})#(${1}) ${2}-${3}#s;
...
}"
Missing right curly or square bracket at (eval 1) line 111, at end of
+line
(eval 1) has too many errors.