Disallow $^A..Z as perl S06:1968