#!/usr/bin/perl -wT

use strict;

my $package = "";
my $maintainer = "";

while(my $line = <>) {
        
    if ($line =~ m/^Package:\s*(\S+).*$/) {
        $package = $1;
    }
    if ($line =~ m/^Maintainer:\s*(\S.+).*$/) {
        $maintainer = $1;
    }
    if ($line =~ m/^Depends:.*debconf.*debconf-2\.0.*debconf.*$/) {
        print "Package: $package  Maintainer: $maintainer $line";
    }
                   
}


1;


__END__
