Lines Matching refs:pat
42 my $pat = '([^_])';
43 if ($frac > 1) { $pat .= '[^A-Z_]{' . ($frac - 1) . '}'; }
44 $prefix =~ s/$pat/$1/g;
47 $pat =~ s/A-Z//;
48 $prefix =~ s/$pat/$1/g;
54 my $pat = '([^_])';
55 if ($frac > 1) { $pat .= '[^A-Z_]{' . ($frac - 1) . '}'; }
57 $squeezed =~ s/$pat/$1/g;
59 $pat =~ s/A-Z//;
60 $squeezed =~ s/$pat/$1/g;
67 my $pat = '(.).{$frac}';
68 $trimmed =~ s/$pat/$1/g;