if ($lhs[0] =~ /.*$rhs.*/)
{  $matches++;  }
else {  print "Error: $lhs[0] = $rhs[1] \n"; diff++; }