my @array;
while ($line = <DATA>) {
  if ($line =~ /regexp/) {
    push(@array, $line);
  }
}

##</code><code>##

my @array;
while ($line = <DATA>) {
  if ($line =~ /(regexp)/) {   # surrounding the regexp with brackets
    push(@array, $1);   # holds the result of the match from the last regexp
  }
}