#!perl -p
s/[A-Z]//g