【携帯電話】DoCoMoからのアクセスを再考しよう - iモードID編

# 7文字しかなかったら。@2008/06/03
if (/^[0-9A-Za-z]{7}$/){
my $letter = ;
s/(.)/$letter .= $1 =~ m|[A-Z]| ? '1': '0'|/eg;
$_ .= "-$letter";
}

こんな感じかな？@BBMにくべる装置