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