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

##</code><code>##

Final program:
   1: EVAL (4)
   4: EXACT <\n> (6)
   6: END (0)