while (my $input = <$testInputsFH>)
{
  my $result = doBigRegexOn($input);
  my $expected = <$expectedResultFH>;
  warn "Test failed; got $result instead of $expected on line $.\n" unless $result eq $expected;
}