$input =~ s{\Q.\E}{\Q\.\E}g;

##</code><code>##

Kev\.has\.a\.stupid\.perl\.question