if( $string=$string=~ s/\Q$oldstring\E/$newstring/gsr )//error here

{
....
...
.......
}