Perl - Title Case after apostrophe

Shell Programming and Scripting
1

I've got:

$string =~ s/(\w+)/\u\L$1/g;

Which capitalizes each word in the string. The problem is if I have a string with an apostrophe the first letter after it gets capitalized as well.

So Bob's becomes Bob'S.

Thanks for any quick fixes!

2

Hello,

Try this

gaurav@localhost:~$ perl -wlp -e 's/(\S+)/\u\L$1/g;' <<< "Bob's gone to market"
Bob's Gone To Market
gaurav@localhost:~$

Regards,
Gaurav.

3

Ah.... \S = any non-whitespace character!

Super... thank you very kindly!

4

Only \u is enough...

echo "Bob's gone to market" | perl -wlp -e 's/(\S+)/\u$1/g;'
5

Hello,

No only \u is not enough as we dont want something like this. ->

gaurav@localhost:~$ perl -wlp -e 's/(\S+)/\u$1/g;' <<< "BOb's goNe tO maRkEt"
BOb's GoNe TO MaRkEt
gaurav@localhost:~$

Regards,
Gaurav.