Help for this page

Select Code to Download

Select or download this

#!perl -l
use strict;
...

print $str1;
print $str2;

Select or download this
```
foo b\.dll bar
foo b.dll bar
```

Select or download this

$str1 =~ s/\Q$orig\E.+/\Q$replacement\E/g;