perl -le '$_=q[Kev.has.a.stupid.perl.question];s/\./\\./g;print'
Kev\.has\.a\.stupid\.perl\.question