Select Code to Download

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

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

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