Have you tried Number::Phone::US?
In reply to Re: Regular expression for Fax numbers by GrandFather in thread Regular expression for Fax numbers by dxxd116