use Regexp::Common;
use Data::Record; # doesn't exist
my $record = Data::Record->new(
  split  => qr/\./,
  unless => $RE{quoted},
);
my @data = $record->split($data);