Select Code to Download

for (my $i=1; $i<=10000; $i++) {
  my $s = Sheep->new($i);
  $gate->through($s);
}

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;