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)