my $range_checker = eval 'sub { local $_ = shift; /foo/../bar/ }';


##</code><code>##


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