OK, I'll bite. Using the answers below, here's a one-liner with Text::CSV_XS:

$ perl -MText::CSV_XS=csv -e'csv(in=>[grep{length($_->[10])>6}@{csv(in
+=>"test.csv")}])'
D,642,0642,UBF,EVL,,M,,S,S,FOREVER,213,213,
D,642,0642,UBF,EVL,,M,,S,S,QSP-U=C,4,4,
$
[download]