$ perl -lne 'sub prt{@c && print scalar @c,"\n",join ", ",@c;@c=();print} />/?prt:push @c,$_}{prt'  TheFileName