use 5.010;
use strict;
use utf8::all;

BEGIN {
	package re::engine::SaneDigits;
	no thanks;
	use constant TAINT => ${^TAINT};
	use re::engine::Plugin ();
	use Carp;
	
	sub import
	{
		re::engine::Plugin->import(
			comp => \&comp,
			exec => \&exec,
		);
	}
	
	*unimport = \&re::engine::Plugin::unimport;
	
	sub comp
	{
		my ($rx) = @_;
		my $real = $rx->pattern;
		$real =~ s{\\d}{[0-9]}g;
		$real =~ s{\\D}{[^0-9]}g;
		
		my %mods = my %mod = $rx->mod;
		my $mods = join q(), keys %mods;
		$real =~ s{/}{\/}g;
		$real = eval qq{ qr/$real/$mods };
		$rx->stash({ real => $real });
		
		$rx->num_captures(
			FETCH => sub {
				my ($rx, $paren) = @_;
				croak sprintf(
					"%s variable not supported with %s",
					{ 0 => q($&), -1 => q($'), -2 => q($`) }->{$paren},
					__PACKAGE__,
				) if $paren < 1;
				my $rv = $rx->stash->{last}[$paren];
				return $rv unless TAINT;
				$rv =~ /(.*)/;
				return $1;
			},
		);
	}
	
	sub exec
	{
		my ($rx, $str) = @_;
		my @results = ($str =~ $rx->stash->{real});
		unshift @results, scalar pos;
		$rx->stash->{last} = \@results;
		return not defined $results[0];
	}
};

my $str = "foo23 bar5 bar42";

say $str =~ m/bar(\d+)/i ? "GOT $1" : "NO MATCH";
use re::engine::SaneDigits;
say $str =~ m/bar(\d+)/i ? "GOT $1" : "NO MATCH";