D,642,0642,UBF,EVL,,M,,S,S,FOREVER,213,213,
D,642,0642,UBF,EVL,,M,,S,S,QSP-U=C,4,4,
D,642,0642,UBF,EVL,,M,,S,S,123456,4,4,
D,642,0642,UBF,EVL,,M,,S,S,12345,4,4,

##</code><code>##

perl -nlaF/,/ -e 'length($F[10]) < 7 and print' test.txt

##</code><code>##

D,642,0642,UBF,EVL,,M,,S,S,123456,4,4,
D,642,0642,UBF,EVL,,M,,S,S,12345,4,4,