>>86
説明不足ですみません。utf16ユニコードの値が欲しかったのです。
しかし、自己解決できました。

# 特殊文字を２ちゃんねるに貼り付けるためのスクリプト。
my $str = "㋐㋑㋒㋓㋔";
$str =~ s/([^\x00-\x7f])/sprintf "&#%d;", conv($1)/ge;
print $str;

sub conv{
my $char = shift;
my $charv = encode("utf16", $char);
my $count = 0;
my $code = 0;
while(length $charv){
$byte = ord(chop $charv);
last if $byte == 0xff || $byte == 0xfe;
$code += $byte * 256 ** $count++;
}
return $code;
}