my $text = "Kev.has.a.stupid.perl.question";
DB<1> x $text
0  'Kev.has.a.stupid.perl.question'
$text =~ s/\./\\./g;
DB<2> x $text
0  'Kev\\.has\\.a\\.stupid\\.perl\\.question'