use strict;

my $string = '+5^7';
my $line = '((1+2)-4)*(2+5^7)';

# insert \ in front of pattern
$line =~ s/(\Q$string\E)/\\$1/;  

print "$line\n";

##</code><code>##

((1+2)-4)*(2\+5^7)