Help for this page
#!perl -l use strict; ... print $str1; print $str2;
foo b\.dll bar foo b.dll bar
$str1 =~ s/\Q$orig\E.+/\Q$replacement\E/g;