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

##</code><code>##

print "$var1\n"; #similar look and obvious function
OR
print $var1, "\n"; #efficiency