в соответствующем файле класса вносим изменения:

sub _imap_utf7_decode {
        my ($s) = @_;

        $s =~ s/\+/PLUSPLACEHOLDER/g;
        $s =~ s/&([^,&\-]*),([^,\-&]*)\-/&$1\/$2\-/g;
        $s =~ s/&(?!\-)/\+/g;
        $s =~ s/&\-/&/g;
        $s =~ s/w-\ /w\ /g;
        $s =~ s/PLUSPLACEHOLDER/\+/g;

        return $s;
}

sub _imap_utf7_encode {
        my ($s) = @_;

        $s =~ s/\+\-/PLUSPLACEHOLDER/g;
        $s =~ s/\+([^\/&\-]*)\/([^\/\-&]*)\-/\+$1,$2\-/g;
        $s =~ s/&/&\-/g;
        $s =~ s/\+([^\-]+)?\-/&$1\-/g;
        $s =~ s/PLUSPLACEHOLDER/+/g;

        return $s;
}

на случай, если кто-то тоже столкнётся