perl -pe 's/([^,]*),/ $1 . " "x(10-length($1))/eg' foo.txt