BEGIN {RS = " "}
 /\./ {print $1}
    # {if (NF>8) {print "*", substr($2,1,6)
    # i=3
    # l=0
    # {while (i<NF) {print substr($i,6,17), substr($i,31,17), substr($i,60,6)
    #  l+=substr($i,60,6)
    #  i++}}
    # print "total length =",l}}
