Have you looked at Mail::Box ? It does all you want and more.

#!/usr/bin/perl
use strict;
use warnings;
use Mail::Box::Manager;

my $manager = Mail::Box::Manager->new();

# source folder
my $source_folder = $manager->open( folder => '/path/to/folder' )
  or die $!;

# two destinations
my $destination_1 = $manager->open(
    folder => '/path/to/destination/1',
    create => 1,
    access => 'rw',
) or die $!,
my $destination_2 = $manager->open(
    folder => '/path/to/destination/2',
    create => 1,
    access => 'rw',
) or die $!;

foreach my $msg ( $source_folder->messages() ){
    if( $msg->isMultipart() ){
        # msg has attachments
    }

    if( $msg->subject() =~ m/some_flag/ ){
        # do something with msg
        # $msg->copyTo($destination_1);
        # or $manager->copyMessage($destination_2, $msg );
    }
}

$manager->closeAllFolders();

1;
[download]

It has great documentation as well!

I'm sold ! I didn't look at that module - but you are right - using this will cure my issues and provide the solution that I want to provide.

Much thanks and I'm very glad to be part of perlmonks.com - I hope that one day - I too will be able to provide such valuable knowledge to those that need it.

-- draconis

Have you tried Mail::MboxParser ?

Here is the sample code from the module

my $mb = Mail::MboxParser->new('some_mailbox', decode => 'ALL');

    # -----------
    
    # slurping
    for my $msg ($mb->get_messages) {
        print $msg->header->{subject}, "\n";
        $msg->store_all_attachments('/tmp');
    }

    # iterating
    while (my $msg = $mb->next_message) {
        print $msg->header->{subject}, "\n";
        # ...
    }
[download]

I did look at that; however, I need to be able to delete the mail after it is processed. From what I understand - Mail::MboxParser is read-only to the mailbox.

Am I mistaken?

Okay !

I can use this - it's read only but so what ! I can FLOCK the file before I do anything, extract the attachments, unlink the file and then remove the FLOCK.

Thanks !