Select Code to Download

# Main Code
my ($i_val, $a_regex);
# ...set $a_regex to some useful value (or not)
...
    ...
  }
}

sub execute {
  my ($i, $regex) = @_;
  return unless $regex;
...
    ...
  }
}