use strict;

# 30 characters max!
my $max_size = 30;

my @fields;
while (<DATA>) {
    chomp;
    @fields = map { $_ . " "x(30 - length($_)) } split /,/;
    print join(",", @fields) . ",\n";
}


__DATA__
Ent, Name,
SCO11, RUN,
Ent, Name,
NA932, TAKE,