Lines Matching refs:string

582 	my ($string) = @_;
583 	return "" if (!defined($string));
585 	while ($string =~ /^\s*\(.*\)\s*$/) {
586 		$string =~ s@^\s*\(\s*@@;
587 		$string =~ s@\s*\)\s*$@@;
590 	$string =~ s@\s+@ @g;
592 	return $string;
1805 	my ($string) = @_;
1807 	$string =~ s/^\s+|\s+$//g;
1809 	return $string;
1813 	my ($string) = @_;
1815 	$string =~ s/^\s+//;
1817 	return $string;
1821 	my ($string) = @_;
1823 	$string =~ s/\s+$//;
1825 	return $string;
1829 	my ($string, $find, $replace) = @_;
1831 	$string =~ s/$find/$replace/g;
1833 	return $string;
1868 		my $string = substr($line, $pos);
1869 		if ($string =~ /^($FuncArg|$balanced_parens)/) {
1873 		} elsif (index($string, '(') == -1) {
4680 		my $string;
4682 			$string = substr($rawline, $-[1], $+[1] - $-[1]);
4683 			$string =~ s/%%/__/g;
4684 			if ($string =~ /(?<!%)%L[udi]/) {