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