is_mobile_jp()だけ@see Mail::Address::MobileJp http://search.cpan.org/~tanimoto/Mail-Address-MobileJp-0.04/lib/Mail/Address/MobileJp.pm function isMobileJp( $email ) { $regex_imode = '^(?:ｉモード)$'; $regex_vodafone = '^(?:vodafone)$'; $r…