##
my @herd;
for (1..10000) {
push @herd(Sheep->new($_));
}
$gate->through(\@herd);
##
##
$gate->through(Sheep->new($_)) for (1..10000);
##
##
$me =~ s!wide awake!fast asleep!g;
##
##
$me =~ s!wide awake!asleep(fast)!ge;
##
##
$me =~ s!wide awake!asleep('fast')!ge;
##
##
$me =~ s!(wide )?awake!asleep('fast')!ge;
##
##
$me =~ s!(?:wide\s+)?awake!asleep('fast')!ge;