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