$_ = $dx = "\x{10f2}";
s/($dx)/$dx$1/;
{
- use bytes;
print "not " unless $_ eq "$dx$dx";
print "ok $test\n";
$test++;
$_ = $dx = "\x{10f2}";
s/($dx)/$1$dx/;
{
- use bytes;
print "not " unless $_ eq "$dx$dx";
print "ok $test\n";
$test++;
$_ = "\x{10f2}\x{10f2}";
s/($dx)($dx)/$1$2/;
{
- use bytes;
print "not " unless $_ eq "$dx$dx";
print "ok $test\n";
$test++;