- set WiFiMAC "5C:F3:70:0F:27:A1"
- set ReMAC [ string map { : "" } $WiFiMAC ]
- puts "After re-MAC = $ReMAC"
- After re-MAC = 5CF3700F27A1
set a "M28SPLL1024X40R2011VTES35D121BSIRLQF"
set result [regexp -all -inline {[0-9]+} $a]
puts [concat [lrange $result 1 end-2] [lindex $result end]]