$_ = reverse lc;
s/(.(?=\s*(?:\.|$))|\bi\b)/\U$1/g;
$_ = reverse;