in reply to Field Spacing

So, from what I can take, you need to get this

Ent                           , Name                      ,
SCO11                         , RUN                       ,

from this ...

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


Right?

Note: heh, I had to actually do a 'View Source' on your node since apparently you forgot to wrap your 'needed output' in a pair of <pre> tags ;-).

UPDATE: And here's the solution (to make my post worth at least 2 cents ;-):
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,
And the output:
Ent , Name , SCO11 , RUN , Ent , Name , NA932 , TAKE


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