perl -F, -i.orig -ane'print if length($F[10]) <= 6;'