#!perl -p
y:A-Z::d