NAME Mail::Address::MobileJp - mobile email address in Japan SYNOPSIS use Mail::Address::MobileJp; my $email = '123456789@docomo.ne.jp'; if (is_mobile_jp($email)) { print "$email is mobile email in Japan"; } # extract mobile email address from an array of addresses my @mobile = grep { is_mobile_jp($_) } @addr; DESCRIPTION Mail::Address::MobileJp is an utility to detect an email address is mobile (