1*b39c5158Smillertuse strict; 2*b39c5158Smillertuse Test::More 'no_plan'; 3*b39c5158Smillertuse Encode ':fallbacks'; 4*b39c5158Smillert 5*b39c5158Smillertmy $str = "\x{0647}"; 6*b39c5158Smillertmy @data = grep length, map { chomp; $_ } <DATA>; 7*b39c5158Smillert 8*b39c5158Smillertwhile (my($in, $out) = splice(@data, 0, 2)) { 9*b39c5158Smillert my $copy = $str; 10*b39c5158Smillert is Encode::encode("iso-2022-jp", $copy, eval $in), $out; 11*b39c5158Smillert} 12*b39c5158Smillert 13*b39c5158Smillert__DATA__ 14*b39c5158SmillertFB_PERLQQ 15*b39c5158Smillert\x{0647} 16*b39c5158Smillert 17*b39c5158SmillertFB_HTMLCREF 18*b39c5158Smillertه 19*b39c5158Smillert 20*b39c5158SmillertFB_XMLCREF 21*b39c5158Smillertه 22