Help for this page
my $s = 'ab'; my $pat = qr/^(a{1,3})(?=b)/; ... { $s =~ s/$pat/$1a/g; }
my $s = 'ab'; my $pat = qr/^(a{1,3})(?=b)/; do{ $s =~ s/$pat/$1a/g } while $s =~ m/$pat/;
Ceramics Glass Wood Metal Plastic Paper Banana leaves Something else
Results (494 votes), past polls
