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;