perl -nle 'print if /\,\w{7}\,/' /come/and/play/with/us/danny.csv