$var[0] = "Gallia est omnis divisa in partes tres"; $var[1] = "Gallia est omnis divisa in ..."; $var[2] = "Gallia est omnis ..."; $var[3] = "Gallia"; $var[4] = "... omnis divisa in ..."; $var[5] = "Gallia est ... tres"; $var[6] = "Gallia ... partes tres"; $var[7] = "Gallia est ... partes tres"; $var[8] = "Gallia ... divisa ... tres"; $var[9] = "... tres"; $var[10] = "quattuor"; #### for ($i=0;$i<=$#var;$i++) { $var[$i] =~ s/\.\.\./\.\+/g; for ($j=$i+1;$j<=$#var;$j++) { $var[$j] =~ s/\.\.\./\.\+/g; if ($var[$i] !~ m/$var[$j]/) { print "$i-$j:\t[$var[$i]] and [$var[$j]] DO NOT MATCH!\n"; } } }