$_='tHere are CAPITAL leTters iNterSpersed';

##</code><code>##

# 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

##</code><code>##

There is more than one way to do it.
Also, I am just another golfer.