Lines Matching refs:str
467 my ($str, @buf);
474 $str = $_[0];
477 $str = $_[0];
478 $str = &$code($str) if ref $code;
479 $str = &$norm($str) if ref $norm;
483 my @src = unpack_U($str);
875 my $str = shift;
876 my $len = length($str);
894 my $strE = $self->splitEnt($pos ? substr($str, $pos) : $str, TRUE);
1017 my $str = shift;
1019 return map substr($str, $_->[0], $_->[1]),
1020 $self->index($str, $sub, 0, 'g');
1351 my $str = shift;
1352 $str =~ s/\b(?:an?|the)\s+//gi;
1353 return $str;
1567 my $str = "Ich mu� studieren Perl.";
1570 if (my($pos,$len) = $Collator->index($str, $sub)) {
1571 $match = substr($str, $pos, $len);
1593 if ($match_ref = $Collator->match($str, $sub)) { # scalar context
1601 if (($match) = $Collator->match($str, $sub)) { # list context
1641 my $str = "Camel ass came\x{301}l CAMEL horse cAm\0E\0L...";
1642 $Collator->gsubst($str, "camel", sub { "<b>$_[0]</b>" });
1644 # now $str is "<b>Camel</b> ass <b>came\x{301}l</b> <b>CAMEL</b> horse <b>cAm\0E\0L</b>...";