{
   print("next: ");
   local $_ = 'fred';
   for ( print "begin\n";
         /./g, print("1<$&>\n") and $& ? 1 : 0 ;
               print("2<$&>\n"),1) {
        print        "3<$&>\n";
        next;
   }
   print("\n");
}
__END__
next: begin
1<f>
3<f>
2<>
1<r>
3<r>
2<>
1<e>
3<e>
2<>
1<d>
3<d>
2<>
1<>