#23456789012345678901234567890
$_=lc;s/^.|\bi\b|\.\s*./\U$&/g
[download]

_____________________________________________________
Jeff[japhy]Pinyan: Perl, regex, and perl hacker, who'd like a (from-home) job
s++=END;++y(;-P)}y js++=;shajsj<++y(p-q)}?print:??;

Of course, the real-world case is not this simple. So? ;-)

I include a simple test harness, but otherwise follow your lead -- up to and including that trailing ";", with which my solution comes in at 25 strokes:

# Test:
$_='there is more than one way to do it.  beware sentences
followed by anything other than a single " ".
just another golfer.';

# 3456789 123456789 12345
s/^.|\bi\b|\.\s*./\U$&/g;

# Proof:
print;
[download]

The Sidhekin
print "Just another Perl ${\(trickster and hacker)},"

But this solution doesn't work when

$_='tHere are CAPITAL leTters iNterSpersed';
[download]

I believe grep wants everything to be lowercased other than beginning of sentences and single I's. Adding an lc and using your regex, this 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
[download]

should output this

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

I believe grep wants everything to be lowercased other than beginning of sentences and single I's.

Well, that's what I get for reading the rules only, and not his solution. Clearly, the intent of that code is to lowercase everything else. I cannot beat 31, and nor does japhy — his code is identical to yours, except for your trailing ";" and variant delimiters (and if he can ignore the test harness, so can you).

(But I would have found the same! :-)

Now, of course the lc version is shorter and therefore better, but I could not leave this without some code, now could I? This is at 35 strokes; the best remains at 31.

# 3456789 123456789 123456789 12345
s/(^.|\.\s*.|\bi\b)|(.)/\U$1\L$2/g;
[download]

The Sidhekin
print "Just another Perl ${\(trickster and hacker)},"

After reading your sig, I immediately started dropping 'Essential System Administration' on my keyboard to see if, in fact, I could get a command.

I tried several different manuals, just for completeness. After testing such works as 'Perl Cookbook', 'Advanced Perl Programming', 'Linux Unleashed', 'Perl 5 Unleashed', and several others. I can report that the GNU Emacs pocket reference gives the best results with 3 actual commands in 25 drops.

Now to go and find a new keyboard.
-oakbox

grep probably meant:


Perl - where you can throw the manual on the keyboard and get a program

-- stefp -- check out TeXmacs wiki

    #23456789_123456789_123456789_123 (33)
    s/[^.]+.\s*/\u\L$&/g;s/\bi\b/I/g;


    # Or for cases with leading whitespace

    #23456789_123456789_123456789_1234 (34)
    s/\s+|[^.]+./\u\L$&/g;s/\bi\b/I/g;
[download]

--
John.

000000000111111111122222222223333333333
123456789012345678901234567890123456789
s/(.+?)(\.\s*)/\u\L$1$2/gs;s/\bi\b/I/gs
[download]

/prakash