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