Select Code to Download

      # code to match the stress regex
      $eval .= <<"      EOT";
            next unless /\$stress[$i]/o;
      EOT

    if (defined $stress[$i]) {
      # code to match the stress regex
      $eval .= <<"      EOT";
            next unless /\$stress[$i]/o;
      EOT
    }

  for (my $i=0; $i<=$#entry; ++$i) {
    # ...

...
      EOT
    }
  }