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