{
   print("for:   ");
   my $pass;
   local $_ = 'fred';
   for (; /./g ;) {
      print("[$&]");
      redo if ++$pass == 3;
   }
   print("\n");
}
{
   print("while: ");
   my $pass;
   local $_ = 'fred';
   while (/./g) {
      print("[$&]");
      redo if ++$pass == 3;
   }
   print("\n");
}

##</code><code>##

for:   [f][r][e][][d]
while: [f][r][e][][d]

##</code><code>##

{
   print("while: ");
   my $pass;
   local $_ = 'f';
   while (/./g) {
      print("[$&]");
      redo if ++$pass == 1;
   }
   print("\n");
}
{
   print("bare:  ");
   my $redid;
   local $_ = 'fred';
   {
      /./g;
      {
         print("[$&]");
         redo if !$redid++;
      }
   }
   print("\n");
}

##</code><code>##

while: [f][]
bare:  [f][f]

##</code><code>##

{
   print("norm: ");
   local $_ = 'fred';
   while (print("<$&>"), /./g) {
      print("[$&]");
   }
   print("\n");
}
{
   print("next: ");
   my $pass;
   local $_ = 'fred';
   while (print("<$&>"), /./g) {
      print("[$&]");
      next if ++$pass == 3;
   }
   print("\n");
}
{
   print("redo: ");
   my $pass;
   local $_ = 'fred';
   while (print("<$&>"), /./g) {
      print("[$&]");
      redo if ++$pass == 3;
   }
   print("\n");
}

##</code><code>##

norm: <>[f]<f>[r]<r>[e]<e>[d]<d>
next: <>[f]<f>[r]<r>[e]<>[d]<d>
redo: <>[f]<f>[r]<r>[e][]<>[d]<d>

##</code><code>##

{
   print("norm: ");
   local $_ = 'fred';
   for (; /./g ; print("<$&>"),1) {      }
   print("\n");
}
{
   print("next: ");
   local $_ = 'fred';
   for (; /./g ; print("<$&>"),1) { next }
   print("\n");
}

##</code><code>##

norm: <f><r><e><d>
next: <><><><>

##</code><code>##

print("norm: ");
for (my $i; $i ? $i<2 : 'a'=~/./g; ++$i) {
   print("[$&]");
}
print("\n");

print("next: ");
for (my $i; $i ? $i<2 : 'a'=~/./g; ++$i) {
   print("[$&]");
   next;
}
print("\n");

##</code><code>##

norm: [a][a]
next: [a][]