Either using quotemeta or "\Q \E" solves your problem.

$_ = "+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/;'
[download]