Evaluated proc mibbit ident {set ip [list]; foreach dildo [regexp -all -inline {[a-f0-9][a-f0-9]} $ident] {lappend ip [scan $dildo %x]}; join $ip {.}}