# Test:
$_='tHere is more than one way to do it.
Also, i am just ANOTHER golfer.';

#        1         2         3
#234567890123456789012345678901
$_=lc;s;^.|\bi\b|\.\s*.;\U$&;g;

# Proof
print