Select Code to Download

  while (pos($_) < length($_)) {
    if (m{ \G (\w+) \s* = \s* (?=\S) }gcx) {
...
    die "parsing error\n" if !defined($value) || ref $value;
    $args[$i] = [ $args[$i], $value ];
  }