$this_term = 'Washington, D.c.';
$this_term =~ s/\.[a-z]/\.[A-Z]/g;
print "$this_term";