$var1 = quotemeta $var1;   # do this before you use it in the regex

or

if ($line =~ /\Q$var1\E/m)