MIME::Entity

[Philipp Hasenfratz]

sub build {
   my ($class, @params) = @_;
   if (ref($params[0]) eq 'ARRAY') {
      my @lines = @{$params[0]};
      my (@head, @body);
      my ($inHead) = 1;
      foreach (@lines) {
         if ($inHead == 1) {
            push @head, $_;
         } else {
            push @body, $_;
         }
         if (($_ eq '') or ($_ =~ /\015|\012|\015\012/)) { $inHead = 0; }

nix da:

if (($_ eq '') or ($_ =~ /^\015|\012|\015\012$/)) { $inHead = 0; }

so, muss es sein!