Help for this page
1. print $var1."\n"; ... 2. if($line =~ /$var1/m) ...
print "$var1\n"; #similar look and obvious function OR print $var1, "\n"; #efficiency