(my $y = 12) =~ tr/1/3/;
($f = 1.5) =~ tr/1/3/;
(my $g = 1.5) =~ tr/1/3/;
-print "not " unless $x + $y + $f + $g > 70.9;
+print "not " unless $x + $y + $f + $g == 71;
print "ok 5\n";
# make sure tr is harmless if not updating - see [ID 20000511.005]
print "ok 10\n";
{
-if (ord("\t") == 9) { # ASCII
- use utf8;
-}
# 11 - changing UTF8 characters in a UTF8 string, same length.
my $l = chr(300); my $r = chr(400);
$x = 200.300.400;