Select Code to Download

/(?: (\d+) | (?:"(.+?)")  ) /gx
     ^           ^
     |           |

sub dequote {
    my ($s) = @_;
...

push @matches, defined($1) ? $1 : dequote($2)
   while /(?: (\d+) | (?:"(.+?)")  ) /gx;