my $msg = $pop->get($msgnum);
for ( 0 .. $#{$msg} ) {
    next unless $msg->[$_] =~ m/\QContent-Transfer-Encoding: 7bit\E/i;
    splice( @{$msg}, $_ + 1, 1 ) if $msg->[ $_ + 1  ] =~ m/^\s+$/;
    delete
    last;
}