set a "--------------------------------------------------------------------------------
       Proto     Source Address                         Pkt-Cnt    Start
                 Destination Address                    Byte-Cnt
       --------------------------------------------------------------------------------
 
       UDP       150.1.1.2                              25         05/24/2021 07:07:29
                 150.2.1.2                              1150      
 
      --------------------------------------------------------------------------------"
 
set b "UDP"
regexp "$b\\s+(\\S+)\\s+(\\S+)\\s+(\\S+)\\s+(\\S+)\\s+(\\S+)\\s+(\\S+)" $a match data1 data2 data3 data4 data5 data6
puts "$data1, $data2, $data3, $data4, $data5, $data6"

c2V0IGEgIi0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tCiAgICAgICBQcm90byAgICAgU291cmNlIEFkZHJlc3MgICAgICAgICAgICAgICAgICAgICAgICAgUGt0LUNudCAgICBTdGFydAogICAgICAgICAgICAgICAgIERlc3RpbmF0aW9uIEFkZHJlc3MgICAgICAgICAgICAgICAgICAgIEJ5dGUtQ250CiAgICAgICAtLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLQoKICAgICAgIFVEUCAgICAgICAxNTAuMS4xLjIgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAyNSAgICAgICAgIDA1LzI0LzIwMjEgMDc6MDc6MjkKICAgICAgICAgICAgICAgICAxNTAuMi4xLjIgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAxMTUwICAgICAgCgogICAgICAtLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLSIKCnNldCBiICJVRFAiCnJlZ2V4cCAiJGJcXHMrKFxcUyspXFxzKyhcXFMrKVxccysoXFxTKylcXHMrKFxcUyspXFxzKyhcXFMrKVxccysoXFxTKykiICRhIG1hdGNoIGRhdGExIGRhdGEyIGRhdGEzIGRhdGE0IGRhdGE1IGRhdGE2CnB1dHMgIiRkYXRhMSwgJGRhdGEyLCAkZGF0YTMsICRkYXRhNCwgJGRhdGE1LCAkZGF0YTYi