#!/usr/bin/perl -w
use strict;

my (@desc, @data);
while (<DATA>) {
   next if /Description:/;
   last if /Data:/;
   push @desc, $_;
}
@data = <DATA>;


# DONE. Check results:
print "desc array\n", @desc;
print "data array\n", @data;

__DATA__
Description:
yada_d1
yada_d1
yada_d1
yada_d1
Data:
yada_d2
yada_d2
yada_d2
yada_d2

##</code><code>##

my (@desc, @data);
my $line = <DATA>;           # Throw away first line
push @desc, $line while ($line = <DATA>) !~ /Data:/;
@data = <DATA>;