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