$replacement =~ s/\\/\\\\/g;
$string =~ eval "s/\$pattern/\$replacement/$flags";