#!/usr/bin/perl -w

use strict;
use Email::Delete qw(delete_message);

my @subject_list = (
  '^Delivery Status Notification.*$' ,
  '^Undelivered Mail Returned to Sender$' ,
  '^failure notice$' ,
  '^DELIVERY FAILURE.*$' ,
  '^Undeliverable:.*$' ,
  '^Returned mail: see transcript for deta.*' ,
);

foreach my $subject (@subject_list) {

    print $subject , "\n";

    delete_message from     => '/home/chad/Mailbox',
                   matching => sub {
                       my $message = shift;
                       $message->header('Subject') =~ m/$subject/;
    };

}