use re qw(debug);
my $sub = eval "sub { m/$evil_re/ }";