00000000011111111112222222222333333333344444444445
12345678901234567890123456789012345678901234567890
$_=join'. ',map{ucfirst}split/\. /,lc;s/\bi\b/I/g;