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