Unmatched ( in regex; marked by <-- HERE in m/.*"blah blah ( <-- HERE blah blah"
.*/ at blah.pl line 53.

##</code><code>##

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