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,

##</code><code>##

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

##</code><code>##

$"=q;grep;;$,=q"grep";for(`find . -name ".saves*~"`){s;$/;;;/(.*-(\d+)-.*)$/;
$_=["ps -e -o pid | "," $2 | "," -v "," "];`@$_`?{print"+ $1"}:{print"- $1"}&&`rm $1`;
print$\;}