Select Code to Download

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

<TAG>data</TAG>
this is data to be stored

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