Lines Matching full:foo*
158 $path =~ s/([\[<])000000\./$1/g; # [000000.foo ==> [foo
159 $path =~ s/([^-]+)\.(\]\[|><)?000000([\]\>])/$1$3/g; # foo.000000] ==> foo]
160 $path =~ s-\]\[--g; $path =~ s/><//g; # foo.][bar ==> foo.bar
162 $path =~ s/\.[^\[<\.]+\.-([\]\>])/$1/; # bar.foo.-] ==> bar]
164 $path =~ s/([\[<\.])([^\[<\.\cx]+)\.-\.?/$1/g; # bar.-.foo ==> foo
166 $path =~ s/^[\[<\]>]{2}//; # []foo ==> foo