$string = "Author[p100-107]\E-book.{Publisher}+_What?";
m/\Q$string\E/;