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