Select Code to Download

use Algorithm::Loops qw( NestedLoops );

...
my @s;
print(join(':', map $parts[$_], @s), "\n")
   while @s = $iter->();

my $source = 'horse:cow:dog:cat';
my @parts = split(/:/, $source);
...
           0..$#parts;
   print("$s\n");
}

my $source = 'horse:cow:dog:cat';

...
local our @rv;
/$re/;
print "$_\n" foreach @rv;