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 (cellurar) email address or not. This module should be updated heavily :) FUNCTION This module exports following function(s). is_mobile_jp $bool = is_mobile_jp($email); returns whether `$email' is a mobile email address or not. `$email' can be an email string or Mail::Address object. AUTHOR Tatsuhiko Miyagawa This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. SEE ALSO the Mail::Address manpage, http://www.mag2.com/faq/mobile.htm