m/
    (?:
        (?:1-?)?
        (?:\(?[0-9]{3}\)?-)?
    )?
    [0-9]{3}-?[0-9]{4}
/x

##</code><code>##

m/
    \$
    (?:\d{1,3},?)+
    (?:\.\d{0,2})?
    (?![.\d])
/x

##</code><code>##

use Number::Phone::US qw/is_valid_number/;
print "Phone: $number\n" if is_valid_number( $number );