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