Select Code to Download

use strict;
use warnings;
...
my $str = "a history of u.s. coast guard aviation.  M.C. Esher";
$str =~ s/\W\K((\w\.)+)/ $1 =~ s{\.}{}gr /ge;
print "$str\n";