use strict;

my $var1 = "a+b";
my $var2 = "a\+b";
if ($var1 =~ /$var2/) {
	print "hey it matches \n";
}

print "hey here  \n";