try this $text =~ s/\./\\\./g;