How are you displaying it under the debugger? I'm seeing the expected value (using perl v5.10.1 under cygwin):
roboticus@Boink:~$ cat 854238.pl my $text = "Kev.has.a.stupid.perl.question"; $text =~ s/\./\\./g; $text .= "."; print $text; roboticus@Boink:~$ perl 854238.pl Kev\.has\.a\.stupid\.perl\.question. roboticus@Boink:~$ perl -d 854238.pl ...snip... main::(854238.pl:1): my $text = "Kev.has.a.stupid.perl.question"; DB<1> b 3 DB<2> r main::(854238.pl:3): $text .= "."; DB<2> p $text Kev\.has\.a\.stupid\.perl\.question DB<3>
...roboticus
In reply to Re^3: Incredibly stupid substitution question :(
by roboticus
in thread Incredibly stupid substitution question :(
by viffer
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |