🚀 go-pugleaf

Cześć!
Mam problem z skonstruowaniem poprawnego wyrażenia regularnego. Mam
poniższy kod, a Perl czepia się (Use of uninitialized value in
concatenation (.) or string at /tmp/test.pl line 10) linii nr 10,
która jest równa print "|$backup_compressed|$type_of_backup|\n";
Mój kod:
-----------8<-----------
#!/usr/bin/perl
use warnings;
use strict;

while (<DATA>) {
    my ($backup_compressed, $type_of_backup ) = $_ =~ /
channel.*starting\s(?!piece)(.*)\s(.*)\sdatafile.*/;
    if ( $backup_compressed eq '') {
        $backup_compressed = "not_compressed";
    }
    print "|$backup_compressed|$type_of_backup|\n";
}


__DATA__
channel ch1: starting compressed full datafile backup set
channel ch1: starting piece 1 at 2011-05-30 02:00:08
channel ch2: starting compressed full datafile backup set
channel ch2: starting piece 1 at 2011-05-30 02:00:08
channel ch3: starting compressed full datafile backup set
channel ch3: starting piece 1 at 2011-05-30 02:00:08
channel ch1: starting compressed full datafile backup set
channel ch1: starting piece 1 at 2011-05-30 02:37:19
channel ch1: starting compressed full datafile backup set
channel ch1: starting piece 1 at 2011-05-30 02:37:20
channel ch1: starting compressed archived log backup set
channel ch1: starting piece 1 at 2011-05-30 02:50:57
channel ch2: starting compressed archived log backup set
channel ch2: starting piece 1 at 2011-05-30 02:50:57
channel ch3: starting compressed archived log backup set
channel ch3: starting piece 1 at 2011-05-30 02:50:57
channel ch1: starting full datafile backup set
channel ch1: starting piece 1 at 2011-05-31 02:00:06
channel ch2: starting full datafile backup set
channel ch2: starting piece 1 at 2011-05-31 02:00:06
channel ch3: starting full datafile backup set
channel ch3: starting piece 1 at 2011-05-31 02:00:07
channel ch1: starting full datafile backup set
channel ch1: starting piece 1 at 2011-05-31 02:34:57
channel ch1: starting full datafile backup set
channel ch1: starting piece 1 at 2011-05-31 02:34:58
channel ch1: starting archived log backup set
channel ch1: starting piece 1 at 2011-05-31 02:47:55
channel ch2: starting archived log backup set
channel ch2: starting piece 1 at 2011-05-31 02:47:55
channel ch3: starting archived log backup set
channel ch3: starting piece 1 at 2011-05-31 02:47:55
-----------8<-----------

Wynik, który chciałbym uzyskać to:
Jeżeli linia jest taka => channel ch1: starting compressed full
datafile backup set
to zmienne $backup_compressed = "Yes" i $type_of_backup = "Full"
Natomiast jeżeli linia jest taka => channel ch1: starting full
datafile backup set
to zmienne $backup_compressed = "No" i $type_of_backup = "Full"

Będę zobowiązany za jakąś pomoc. Zwłaszcza w skonstruowaniu poprawnego
RegEx'pa lub innym obejściu (w Perlu?) tego problemu.

Pozdrawiam,
--
Scottie