Index: /lang/perl/HTML-Entities-ConvertPictogramMobileJp/trunk/t/01_simple.t
===================================================================
--- /lang/perl/HTML-Entities-ConvertPictogramMobileJp/trunk/t/01_simple.t (revision 5341)
+++ /lang/perl/HTML-Entities-ConvertPictogramMobileJp/trunk/t/01_simple.t (revision 5396)
@@ -50,2 +50,13 @@
 --- expected: 
 
+=== i2e, pair
+--- input
+user_agent: KDDI-SA31 UP.Browser/6.2.0.7.3.129 (GUI) MMP/2.0
+html: ""
+--- expected: 
+
+=== i2v, pair
+--- input
+user_agent: Vodafone/1.0/V904SH/SHJ001/SN123456789012 Browser/VF-NetFront/3.3 Profile/MIDP-2.0 Configuration/CLDC-1.1
+html: ""
+--- expected: 
Index: /lang/perl/HTML-Entities-ConvertPictogramMobileJp/trunk/lib/HTML/Entities/ConvertPictogramMobileJp.pm
===================================================================
--- /lang/perl/HTML-Entities-ConvertPictogramMobileJp/trunk/lib/HTML/Entities/ConvertPictogramMobileJp.pm (revision 5341)
+++ /lang/perl/HTML-Entities-ConvertPictogramMobileJp/trunk/lib/HTML/Entities/ConvertPictogramMobileJp.pm (revision 5396)
@@ -2,5 +2,5 @@
 use strict;
 use warnings;
-our $VERSION = '0.01';
+our $VERSION = '0.02';
 use Encode;
 use Encode::JP::Mobile;
@@ -22,5 +22,6 @@
             _convert_unicode('softbank', $2)
         } elsif ($agent->is_ezweb) {
-            sprintf '&#x%X;', unpack 'U*', decode "x-sjis-kddi-cp932-raw", encode( "x-sjis-kddi-auto", chr( hex $2 ));
+            join '', map { sprintf( '&#x%X;', unpack( 'U*', $_ ) ) } split //,
+              decode "x-sjis-kddi-cp932-raw", encode( "x-sjis-kddi-auto", chr( hex $2 ) );
         } elsif ($agent->is_docomo && $agent->is_foma) {
             _convert_unicode('docomo', $2)
@@ -36,5 +37,6 @@
 sub _convert_unicode {
     my ($carrier, $unihex) = @_;
-    sprintf '&#x%X;', unpack 'U*', decode "x-utf8-$carrier", encode( "x-utf8-$carrier", chr( hex $unihex ));
+    join '', map { sprintf '&#x%X;', unpack 'U*', $_ } split //,
+      decode "x-utf8-$carrier", encode( "x-utf8-$carrier", chr( hex $unihex ) );
 }