in reply to replacing part of a string with its uppercase via regex

c:\@Work\Perl\monks>perl -wMstrict -le
"my $s = 'Washington, D.c., New York, N.y.';
 $s =~ s/(\.[a-z])/\U$1/g;
 print qq{'$s'};
"
'Washington, D.C., New York, N.Y.'

[download]

In Section Seekers of Perl Wisdom