Shell Programming and Scripting

APaul,,,,SDH,,23,,,PPH,,2
,,,,KKH,,19,,,MMH,,12,
,,,,CCH,,22,,,MNH,,19,
,,,,TCH,,55,,,NNH,,67,
BPaul,,,,SDH,,44,,,PPH,,3
,,,,KKH,,12,,,MMH,,22,
,,,,CCH,,33,,,MNH,,66,
,,,,TCH,,62,,,NNH,,98,
CPaul,,,,SDH,,44,,,PPH,,3
,,,,KKH,,11,,,MMH,,10,
,,,,CCH,,03,,,MNH,,39,
,,,,TCH,,68,,,NNH,,97,

APaul,,,,SDH,,23,,,PPH,,2,,,,KKH,,19,,,MMH,,12,,,,,CCH,,22,,,MNH,,19,,,,,TCH,,55,,,NNH,,67,
BPaul,,,,SDH,,44,,,PPH,,3,,,,KKH,,12,,,MMH,,22,,,,,CCH,,33,,,MNH,,66,,,,,TCH,,62,,,NNH,,98,
CPaul,,,,SDH,,44,,,PPH,,3,,,,KKH,,11,,,MMH,,10,,,,,CCH,,03,,,MNH,,39,,,,,TCH,,68,,,NNH,,97,
-----------------------------------

awk 'END { print r }
r && !/^,/ { print r; r = "" }
{ r = r ? r $0 : $0 }
' infile

sed -e :a -e '$!N;s/\n,/,/;ta' -e 'P;D' infile

perl -lne'
print$x and undef$x if!/^,/&&$x;
$x.=$_ and next;END{print$x}
' infile

perl -e  'while(<>) { chop; if($_ =~ /^[A-Z]/) { $_="\n".$_; } print; }' filename