First page Back Continue Last page Overview Graphics

• cmpthese -1, {

• keep => sub {

• my $str = $test;

• $str =~ s/fo+\Kbar/baz/;

• },

• nokeep=> sub {

• my $str = $test;

• $str =~ s/(fo+)bar/${1}baz/;

• },

• }