Lines Matching refs:string

596 	my ($string) = @_;
597 	return "" if (!defined($string));
599 	while ($string =~ /^\s*\(.*\)\s*$/) {
600 		$string =~ s@^\s*\(\s*@@;
601 		$string =~ s@\s*\)\s*$@@;
604 	$string =~ s@\s+@ @g;
606 	return $string;
1866 	my ($string) = @_;
1868 	$string =~ s/^\s+|\s+$//g;
1870 	return $string;
1874 	my ($string) = @_;
1876 	$string =~ s/^\s+//;
1878 	return $string;
1882 	my ($string) = @_;
1884 	$string =~ s/\s+$//;
1886 	return $string;
1890 	my ($string, $find, $replace) = @_;
1892 	$string =~ s/$find/$replace/g;
1894 	return $string;
1929 		my $string = substr($line, $pos);
1930 		if ($string =~ /^($FuncArg|$balanced_parens)/) {
1934 		} elsif (index($string, '(') == -1) {
4876 		my $string;
4878 			$string = substr($rawline, $-[1], $+[1] - $-[1]);
4879 			$string =~ s/%%/__/g;
4880 			if ($string =~ /(?<!%)%[\*\d\.\$]*L[udi]/) {
4885 			if ($string =~ /0x%[\*\d\.\$\Llzth]*[udi]/) {