gistfile1.txt

#! /usr/bin/perl

use v5.10.1;
use strict;
use warnings;
use utf8;
use Encode 2.39;
use Encode::JP::Mobile 0.27;

## panic: do_trans_simple_utf8 line 388 at .../Encode/JP/Mobile/Vodafone.pm line 32.
my $enc = 'x-sjis-softbank';

## no problem
#my $enc   = 'x-sjis-softbank-auto';

my $check = sub { return encode( $enc, "\x{3013}" ); };
my $hstr = "\x{2665}";
print encode( $enc, $hstr, $check ), "\n";