use Number::Phone::JP;
 
my $tel = Number::Phone::JP->new('012', '34567890');
print "This is valid!!\n" if $tel->is_valid_number;
 
$tel->set_number('098 7654 3210');
print "This is valid!!\n" if $tel->is_valid_number;
 
$tel->import(qw(mobile PHS));
$tel->set_number('090-0123-4567');
print "This is valid!!\n" if $tel->is_valid_number;