#!perl -p s/[A-Z]/ \l$&/g