#!perl -p /u/&&s/I/i/;s/[A-Z]/ \L$&/g