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

##</code><code>##

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

##</code><code>##

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