$_ = "+5^7";
$pattern = "+5^7";
print "ok\n" if  m/\Q$pattern\E/;'

$_ = "+5^7";
$pattern = quotemeta "+5^7";
print "ok\n" if  m/$pattern/;'