{
   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");
}