Select Code to Download

while ($text =~ m/
   (APC[s]?)
...
   my @nums = $nums =~ /(\d+)/g;
   push @extracts, $apc, @nums;
}