Davido gave me one answer for the blank line at the bottom of the email. But this line is in the middle. Could i remove all blank spaces????? It would be better just to remove that blank line i list below. thanks I have a simple pop3 script using Net::pop3. Here is what it does. It pops a mailbox and splits the emails into seperate .eml files. In those eml file there is a string that reoccurs. I need to remaove a blank line that occurs after the string "Content-Transfer-Encoding: 7bit" This blank line is making the email be non-mime compliant. Just that blank line in the email must go.
I will paste the script below. Thanks for the help

#################################
use Net::POP3;

# Constructors
$pop = Net::POP3->new('redserv1', Timeout => 60);
$i = int rand(10000000000000);
if ($pop->login("capturemail", "redmap") > 0) {
    my $msgnums = $pop->list; # hashref of msgnum => size
    foreach my $msgnum (keys %$msgnums) {
        open(MAILBOX, ">$i.eml")
            or die "Cannot open Mailbox file $timestamp$i.eml";
        print "Writing to $i.eml\n";
        $i++;
        my $msg = $pop->get($msgnum);
        print MAILBOX @$msg;
        # $pop->delete($msgnum);
        close(MAILBOX)
            or die "Cannot close mailbox";
    }
}
$pop->quit;
[download]

Reparented by davido per consideration.