cat /come/and/play/with/$i | perl -ne 'print if length((split /,/)[10]) > 6'