Как извлечь текст между двумя шаблонами с помощью REGEX perl

В следующих строках я могу сохранить строки между « Description: » и « Tag: » в переменной с использованием REGEX PERL, и какой тип данных можно использовать , строка, список или что-то еще?

(Я пытаюсь написать программу на Perl, чтобы извлечь информацию из текстового файла с информацией о пакете Debian и преобразовать ее в файл RDF (OWL) (онтология).)

Описание: библиотека для декодирования потоков ATSC A / 52 (разработка) liba52 - это бесплатная библиотека для декодирования потоков ATSC A / 52. Стандарт A / 52 используется в различных приложениях, включая цифровое телевидение и DVD. это также известный как AC-3.

Этот пакет содержит файлы для разработки. Домашняя страница: http://liba52.sourceforge.net/

Тег: devel :: library, role :: devel-lib

На данный момент я написал следующий код:

#!/usr/bin/perl
open(DEB,"Packages");
open(ONT,">>debianmodelling.txt");

$i=0;
while(my $line = )
{

    if($line =~ /Package/)
    {
        $line =~ s/Package: //;
        print ONT '  ';
        print ONT    '    '.$line.''."\n";
    }
elsif($line =~ /Priority/)
{
    $line =~ s/Priority: //;
    print ONT '    '.$line.''."\n";
}

elsif($line =~ /Section/)
{
    $line =~ s/Section: //;
    print ONT '    
'.$line.'
'."\n";
}

elsif($line =~ /Maintainer/)
{
    $line =~ s/Maintainer: //;
    print ONT '    '.$line.''."\n";
}

elsif($line =~ /Architecture/)
{
    $line =~ s/Architecture: //;
    print ONT '    '.$line.''."\n";
}
elsif($line =~ /Version/)
{
    $line =~ s/Version: //;
    print ONT '    '.$line.''."\n";
}
elsif($line =~ /Provides/)
{
    $line =~ s/Provides: //;
    print ONT '    '.$line.''."\n";
}
elsif($line =~ /Depends/)
{
    $line =~ s/Depends: //;
    print ONT '    '.$line.''."\n";
}
elsif($line =~ /Suggests/)
{
    $line =~ s/Suggests: //;
    print ONT '    '.$line.''."\n";
}

elsif($line =~ /Description/)
{
    $line =~ s/Description: //;
    print ONT '    '.$line.''."\n";
}
elsif($line =~ /Tag/)
{
    $line =~ s/Tag: //;
    print ONT '    '.$line.''."\n";
    print ONT '  '."\n\n";
}
$i=$i+1;
}