8 $_ = "abcdefghijklmnopqrstuvwxyz";
12 print "not " unless $_ eq "ABCDEFGHIJKLMNOPQRSTUVWXYZ";
17 print "not " unless $_ eq "abcdefghijklmnopqrstuvwxyz";
22 print "not " unless $_ eq "aBCDEFGHIJKLMNOPQRSTUVWXYz";
25 # In EBCDIC 'I' is \xc9 and 'J' is \0xd1, 'i' is \x89 and 'j' is \x91.
26 # Yes, discontinuities. Regardless, the \xca in the below should stay
27 # untouched (and not became \x8a).
34 print "not " unless $_ eq "i\xcaj";