my $accum;
@data = map {
          if ($length) { $accum .= $_; () }
          else { my $x = $accum; $accum = ''; $x }
        }
        split /($RE{quoted})|\./;
push @data, $accum;