regexp weirdness

package require base64

set something "cn:: QnJhZGlwbw=="

    set result {}
    foreach i [split $something \n ] {
        if [regexp -nocase {^mail[=:] *([^,]*)$} $i dummy email] {
            lappend result "$email $name"
        } elseif [regexp -nocase {^cn:: *(.*)$} $i dummy tmp] {
            puts stderr $i
            puts stderr $dummy
            puts stderr $tmp
            if {[info exists name]} { puts stderr $name }
            set name [::base64::decode $tmp]
        } elseif [regexp -nocase {^cn[=:] *(.*)$} $i dummy tmp] {
            set name $tmp
        }
    }