Find bouncende adresser fra Sendmail - 2

while(<>) {

/The following addresses had permanent fatal errors/

&& do { $inside=1 };

/Transcript of session follows/ && do { $inside=0 };

$inside && do {

   /<(.*)>/ && print $1."\n";

};

}