x=as.factor(c(".&.", "0.0119885482338&.&.", ".&2.25880593895", ".&.&.&.&.&.&.&.", ".&0.295142083575&.", "0.708323350364",".&.&0.193766679861",".&.&.&.&7.65239874523E-4&.&."))
sub("^.*?(?:([-+]?\\d*\\.?\\d+(?:[eE][-+]?\\d+)?).*|$)","\\1",x)
eD1hcy5mYWN0b3IoYygiLiYuIiwgIjAuMDExOTg4NTQ4MjMzOCYuJi4iLCAiLiYyLjI1ODgwNTkzODk1IiwgIi4mLiYuJi4mLiYuJi4mLiIsICIuJjAuMjk1MTQyMDgzNTc1Ji4iLCAiMC43MDgzMjMzNTAzNjQiLCIuJi4mMC4xOTM3NjY2Nzk4NjEiLCIuJi4mLiYuJjcuNjUyMzk4NzQ1MjNFLTQmLiYuIikpCnN1YigiXi4qPyg/OihbLStdP1xcZCpcXC4/XFxkKyg/OltlRV1bLStdP1xcZCspPykuKnwkKSIsIlxcMSIseCkK