Lines Matching refs:word

238 		foreach my $word (@words) {
239 			last if ($word =~ m/^#/);
240 			push (@conf_args, $word);
403 	foreach my $word (@array) {
404 		$word =~ s/\s*\n?$//g;
405 		$word =~ s/^\s*//g;
406 		$word =~ s/\s+/ /g;
407 		$word =~ tr/[a-z]/[A-Z]/;
409 		next if ($word =~ m/^\s*#/);
410 		next if ($word =~ m/^\s*$/);
412 		$hashRef->{$word}++;
421 		foreach my $word (sort keys %$hashRef) {
422 			print " $word";
5858 					my $word = $1;
5859 					next if ($word !~ /[A-Z][a-z]|[a-z][A-Z]/);
5867 					if (!defined $camelcase{$word}) {
5868 						$camelcase{$word} = 1;
5870 						    "Avoid CamelCase: <$word>\n" . $herecurr);