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