perl -eprint\ A..Z