while (<IN>) {                     
       s/(\.[\W]+)([\w])/\1\u\2/ig;
            print OUT;
}