Here ya go: 
    push(@list, "($1) $2-$3") while /\(?(\d{3})?\)?\s*[-.]*\s*(\d{3})\
+s*[-.]*\s*(\d{4})/g;

[download]
I pasted your big block of text into it and got this out: 
() 209-4044
(440) 248-2700
(440) 975-0537
() 213-0518
(330) 836-9300
(330) 864-5741
(313) 884-6400
(313) 884-0600
(313) 590-9253

[download]
Good enough?

Update: I should explain a little... The regexp breaks down into, basically: optional parens around optional 3 digits, minimal separating junk, 3 digits, minimal separating junk 4 digits. It may look ugly, but it's actually quite straight-forward, although you could obviously tinker with it a little if you wanted. Oh... and the while ... /g means to count it each time it appears on a line (so if multiple phone #'s are on one line, it'll count each one).

For example, I'll turn the "separating garbage" chunk into just [-.\s]*, which is more permissive as well as shorter to write out. Still gets the same results on your sample data. 

[me@host]$ perl -ne 'push(@list, "($1) $2-$3") while /\(?(\d{3})?\)?[-
+.\s]*(\d{3})[-.\s]*(\d{4})/g; END{print join("\n",@list)."\n";}' data
+.txt 
() 209-4044
(440) 248-2700
(440) 975-0537
() 213-0518
(330) 836-9300
(330) 864-5741
(313) 884-6400
(313) 884-0600
(313) 590-9253
[me@host]$

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

[download]

In reply to Re: phone number parsing refuses to work by etcshadow
in thread phone number parsing refuses to work by Anonymous Monk

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.