{ chaine=$0 for (i = 1 ; t==0; i++) if (substr(c,i,1)=="") t=i-1 pt=0 for (i = 1 ; i<=length ; i++) for (j=1 ; substr(chaine,i+j-1,1)==substr(c,j,1) && (j<=t+1); j++) if (j==t) {li++ ; pt =i-1} l++ if (pt>0) print chaine } END{ print "# chercher:" c " nbli:" l " nb subst=" li}