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