if($_ =~ /\s+Description.*$/) {
  while(chomp($description_line = <DATA>)) {
    last if $description_line eq "";
    $description .= $description_line
  }
}