# Validate the phone according to basic U.S. rules
if ( $phone =~ s/^(1-)?(\d\d\d-?\d\d\d-?\d\d\d\d)$/ ) {
  $phone = $2;
  $phone =~ s/-//g; # Strip dashes
  $obj->set_phone( $2 );
} else {
  $obj->error( "Invalid phone number" );
}
if ( $obj->show_phone ) {
    $obj->print_phone_number;
}