#!/usr/bin/perl
use strict;
use warnings;
use Text::Balanced qw(extract_quotelike);

sub getfields {
    my ($str) = @_;
    my @fields;
    my $field = '';
    while ($str) {
        $field .= $str =~ s/^(\s*)// ? $1 :'';
        my $extracted;
        if ($str=~/^["']/) {
            ($extracted,$str) = extract_quotelike($str);
            $field.=$extracted;
            }
        else {
            ($extracted,$str) = split(',',$str,2);
            push @fields,$field.$extracted;
            $field='';
            }
        }
    return @fields;
    }


while (my $line = <DATA>) {
    chomp($line);
    print "$_\t" foreach ( getfields($line) );
    print "\n";
    }

__DATA__
Submitted,"696,028","50,946","15,127,534","14,458,899"
Expired,245,275,273,248
Less in,90.12%,90.49%,90.04%,89.55%