Select Code to Download

my @array;
while ($line = <DATA>) {
...
    push(@array, $line);
  }
}

my @array;
while ($line = <DATA>) {
...
    push(@array, $1);   # holds the result of the match from the last 
+regexp
  }
}