ok($caseno == $rcase, "received testcase $caseno");
  if (length($re)) {ok($rstr =~ m{$re}, $name)}