>>217>>219
それだったら

$value =~ s/([0-9])/pack("c2", 0xa3, 0xb0+$1)/eg;

の方が良くないか？