Lines Matching refs:string

345 	my ($string) = @_;
346 	return "" if (!defined($string));
347 	$string =~ s@^\s*\(\s*@@g;
348 	$string =~ s@\s*\)\s*$@@g;
349 	$string =~ s@\s+@ @g;
350 	return $string;
1355 		my $string = substr($line, $pos);
1356 		if ($string =~ /^($FuncArg|$balanced_parens)/) {
1360 		} elsif (index($string, '(') == -1) {
3433 		my $string;
3435 			$string = substr($rawline, $-[1], $+[1] - $-[1]);
3436 			$string =~ s/%%/__/g;
3437 			if ($string =~ /(?<!%)%L[udi]/) {