my @array;
while( my $line = <FILE> ) {
  if ( $line =~ /\<TAG\>data\<\/TAG\>/i ) {
    my $data_line = <FILE>;
    push @array, $data_line;
  }
}