my @s = split(/\W+/, $s);
	foreach $word (@s){
	    if($contents !~ /$word/sig){
		print "$textfile didn't contain $s\n";
		$nomatch = 1;
		last;
	    }
	}
	print "pos = ", pos $contents, ",$s|" unless $nomatch;