my $match   = sub { $_[0] =~ /.../ };
  my $negated = sub { not $match->(@_) };