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