@data = grep length, split /($RE{quoted})|\./;