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