13 my $foo = '<>' . ('<x><>' x 20) ;
21 s/\Ga(?{push @res, $_, $`})/xx/g;
22 is("$_ @res", 'axxxx aaa a aaa aa');
27 s/\Ga(?{push @res, $_, $`})/x/g;
28 is("$_ @res", 'axx aaa a aaa aa');
33 s/\Ga(?{push @res, $_, $`})/xx/;
34 is("$_ @res", 'axxa aaa a');
39 s/\Ga(?{push @res, $_, $`})/x/;
40 is("$_ @res", 'axa aaa a');
45 $a =~ s/\Ga(?{push @res, $_, $`})/xx/g;
46 is("$a @res", 'axxxx aaa a aaa aa');
51 $a =~ s/\Ga(?{push @res, $_, $`})/x/g;
52 is("$a @res", 'axx aaa a aaa aa');
57 $a =~ s/\Ga(?{push @res, $_, $`})/xx/;
58 is("$a @res", 'axxa aaa a');
63 $a =~ s/\Ga(?{push @res, $_, $`})/x/;
64 is("$a @res", 'axa aaa a');
72 $a =~ s/\Ga(?{push @res, $_, $`})/x2/ge;
73 is("$a @res", 'axxxx aaa a aaa aa');
78 $a =~ s/\Ga(?{push @res, $_, $`})/x1/ge;
79 is("$a @res", 'axx aaa a aaa aa');
84 $a =~ s/\Ga(?{push @res, $_, $`})/x2/e;
85 is("$a @res", 'axxa aaa a');
90 $a =~ s/\Ga(?{push @res, $_, $`})/x1/e;
91 is("$a @res", 'axa aaa a');