perl -0777pe " 
s[[^0-9() -]+][\n]g; 
s[\s{3,}][\n]g; 
s[---][]g; 
for my$n(1..4){ s[\n.{1,7}\n][\n]msg;}  
print" -
[PASTE SNIPPED]
^Z

(440) 248-2700
(440) 975-0537
(330) 836-9300
(330) 864-5741
 (313)884-6400
(313) 884-0600
(313) 590-9253

(440) 248-2700
(440) 975-0537
(330) 836-9300
(330) 864-5741
 (313)884-6400
(313) 884-0600
(313) 590-9253