こんなかんじでなんでしょうか。
Perlはよくわからないです。

#! /usr/local/bin/perl -w

# 入力: 7文字のCID
# 出力: 7文字のCID文字情報
# 数字:1、大文字:2、小文字:3
sub GetDoCoMoCIDCaseInfo
{
my $cid = shift;
my $count = 0;
my @cidcase = ();

for ($count = 0; $count < 7; $count++) {
$cidcase[$count] = (ord(substr($cid, $count)) >> 5) + 48;
}
return pack("C*", @cidcase);
}

# この文字列の場合、、、
my $cid = "AaBb012";

# 2323111 と出れば成功
print &GetDoCoMoCIDCaseInfo($cid);