Um, perl runs on several EBCDIC systems. And IIRC /[A-Z]/ is special-cased to only cover the letters.

If you feel like having your mind blown, take a look at how UTF-EBCDIC works (yes, perl uses it).