Help for this page

Select Code to Download


  1. or download this
    use re qw(debug);
my $sub = eval "sub { m/$evil_re/ }";
  2. or download this
    Final program:
   1: EVAL (4)
   4: EXACT <\n> (6)
   6: END (0)