my %expand = ( "\x10" => "\x11\x11",
             "\x11" => "\x11\x12");
s/([\x10\x11])/$expand{$1}/g;