Help for this page

Select Code to Download

Select or download this

## note the \Q before $comm
if(($line eq $comm) || ($line =~ /\Q$comm/)){
  print"Line $i: $comm";
}

Select or download this

if(($line eq $comm) || (index($line, $comm) > -1)){
  print"Line $i: $comm";
}