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