1. print $var1."\n";
...
2. if($line =~ /$var1/m)
...