sub mk_flip_flop {
  my ( $re1, $re2 ) = @_;
  sub { local $_ = shift; /$re1/../$re2/ }
}