set x { 1.0034e-09 -0.34e+07 -3 0.46 3.445e+03 }
set RE {[-+]?[0-9]*\.?[0-9]+(?:[eE][-+]?[0-9]+)?}
set res [regexp -all -inline $RE $x]
puts $res
c2V0IHggeyAgMS4wMDM0ZS0wOSAtMC4zNGUrMDcgICAgLTMgMC40NiAgIDMuNDQ1ZSswMyAgIH0Kc2V0IFJFIHtbLStdP1swLTldKlwuP1swLTldKyg/OltlRV1bLStdP1swLTldKyk/fQpzZXQgcmVzIFtyZWdleHAgLWFsbCAtaW5saW5lICRSRSAkeF0KcHV0cyAkcmVz