Select Code to Download

  my $re;
  $re = qr{
...
          )*
         }x;
   /^$re\z/;

  my $re;
  $re = qr{
          (?:
...
       print "$_ did not match\n";
     }
   }

  my $re;
  $re = qr{
...
       print "$_ did not match\n";
     }
   }

  my $re;
  $re = qr{
...
       print "$_ did not match\n";
     }
   }