perl -F: -lane " print qq/-------/ if 1==$.; print join q/|/, @F, qq//; print q/--/ x @F, qq//; "   < infile > outfile