Lines Matching refs:pattern

73   $pattern = $_;
75   while ($pattern !~ /^\s*(.).*\1/s)
80     $pattern .= $_;
83   chomp($pattern);
84   $pattern =~ s/\s+$//;
88   $showrest = ($pattern =~ s/\+(?=[a-zA-Z]*$)//);
92   $pattern =~ s/\+(?=[a-zA-Z]*$)//;
96   $utf8 = $pattern =~ s/8(?=[a-zA-Z]*$)//;
100   $pattern =~ s/J(?=[a-zA-Z]*$)//;
104   $pattern =~ s/K(?=[a-zA-Z]*$)//;
108   $pattern =~ s/W(?=[a-zA-Z]*$)/u/;
112   $pattern =~ s/S(?=[a-zA-Z]*$)//g;
116   $pattern =~ s/[YO](?=[a-zA-Z]*$)//;
120   eval "\$_ =~ ${pattern}";
138   $cmd = ($pattern =~ /g[a-z]*$/)? "while" : "if";
147   $pattern = "/(?#)/$2" if ($pattern =~ /^(.)\1(.*)$/);
192     eval "${cmd} (\$x =~ ${pattern}) {" . $pushes;