Process bounces in an IAMP inbox

bounces.pl

use Mail::IMAPClient;
use Data::Dumper;

my $imap = Mail::IMAPClient->new(
	Server   => 'mail.mxes.net',
	User     => 'ACCOUNT',
	Password => 'PASSWORD',
	Ssl      => 0,
	Uid      => 1,
);

my $missing = 0;

$imap->select('______BOUNCE') or die "Can't select folder";
my @msgs = $imap->messages or die "Could not messages: $@\n";

for my $uid(@msgs){

	my $string = $imap->body_string($uid);

	if ($string =~ m!The following message to <(.*?)> was undeliverable!){

		print "$1\n";
		$imap->delete_message($uid);
		next;
	}

	if ($string =~ m!Final-Recipient: rfc822;\s*(\S+)!i){

		print "$1\n";
		$imap->delete_message($uid);
		next;
	}

	if ($string =~ m!Feedback-Type: abuse!i){
		if ($string =~ m!Original-Rcpt-To:\s*(\S+@\S+)!i){

			print "ABUSE: $1\n";
			$imap->delete_message($uid);
			next;
		}
	}

	my $env = $imap->get_envelope($uid);

	if ($env->{subject} =~ m!complaint about message!i){

		if ($string =~ m!X-HmXmrOriginalRecipient:\s*(\S+@\S+)!i){

			print "ABUSE: $1\n";
			$imap->delete_message($uid);
			next;
		}
	}

	$missing++;
	#last;
}

$imap->expunge('______BOUNCE');

print "no address found for $missing messages\n";