@codepoints = map ord($_), split //, $s1;
$s2 = join '', map chr($_), @codepoints;
ok($s1 eq $s2);
ok(length($s1) == length($s2);