Lines Matching refs:word

236 		foreach my $word (@words) {
237 			last if ($word =~ m/^#/);
238 			push (@conf_args, $word);
400 	foreach my $word (@array) {
401 		$word =~ s/\s*\n?$//g;
402 		$word =~ s/^\s*//g;
403 		$word =~ s/\s+/ /g;
404 		$word =~ tr/[a-z]/[A-Z]/;
406 		next if ($word =~ m/^\s*#/);
407 		next if ($word =~ m/^\s*$/);
409 		$hashRef->{$word}++;
418 		foreach my $word (sort keys %$hashRef) {
419 			print " $word";
5854 					my $word = $1;
5855 					next if ($word !~ /[A-Z][a-z]|[a-z][A-Z]/);
5863 					if (!defined $camelcase{$word}) {
5864 						$camelcase{$word} = 1;
5866 						    "Avoid CamelCase: <$word>\n" . $herecurr);