Select Code to Download

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

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

my $accum;
@data = map {
...
        }
        split /($RE{quoted})|\./;
push @data, $accum;