I suggest you read more about regexp, coz' this is kind of a basic thing:

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

like this you save all the lines that matche your regexp and can work of them. but if you want to save the match result, then:

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
  }
}
[download]

Hotshot