$string =~ s/\Q$substring//;