#!perl -p eof||s/I/i/,s/[A-Z]/ \l$&/g