+
+print +(hex('0xff_ff_ff_ff') == 4294967295) ?
+ "ok" : "not ok", " 36\n";
+
+$_ = "\0_7_7";
+print length eq 5 ? "ok" : "not ok", " 37\n";
+print $_ eq "\0"."_"."7"."_"."7" ? "ok" : "not ok", " 38\n";
+chop, chop, chop, chop;
+print $_ eq "\0" ? "ok" : "not ok", " 39\n";
+if (ord("\t") != 9) {
+ # question mark is 111 in 1047, 037, && POSIX-BC
+ print "\157_" eq "?_" ? "ok" : "not ok", " 40\n";
+}
+else {
+ print "\077_" eq "?_" ? "ok" : "not ok", " 40\n";
+}
+
+$_ = "\x_7_7";
+print length eq 5 ? "ok" : "not ok", " 41\n";
+print $_ eq "\0"."_"."7"."_"."7" ? "ok" : "not ok", " 42\n";
+chop, chop, chop, chop;
+print $_ eq "\0" ? "ok" : "not ok", " 43\n";
+if (ord("\t") != 9) {
+ # / is 97 in 1047, 037, && POSIX-BC
+ print "\x61_" eq "/_" ? "ok" : "not ok", " 44\n";
+}
+else {
+ print "\x2F_" eq "/_" ? "ok" : "not ok", " 44\n";
+}
+
+print +(oct('0b'.( '0'x10).'1_0101') == 0b101_01) ? "ok" : "not ok", " 45\n";
+print +(oct('0b'.( '0'x100).'1_0101') == 0b101_01) ? "ok" : "not ok", " 46\n";
+print +(oct('0b'.('0'x1000).'1_0101') == 0b101_01) ? "ok" : "not ok", " 47\n";
+
+print +(hex(( '0'x10).'01234') == 0x1234) ? "ok" : "not ok", " 48\n";
+print +(hex(( '0'x100).'01234') == 0x1234) ? "ok" : "not ok", " 49\n";
+print +(hex(('0'x1000).'01234') == 0x1234) ? "ok" : "not ok", " 50\n";
+