Select Code to Download

{
   print("for:   ");
...
   }
   print("\n");
}

for:   [f][r][e][][d]
while: [f][r][e][][d]

{
   print("while: ");
...
   }
   print("\n");
}

while: [f][]
bare:  [f][f]

{
   print("norm: ");
...
   }
   print("\n");
}

norm: <>[f]<f>[r]<r>[e]<e>[d]<d>
next: <>[f]<f>[r]<r>[e]<>[d]<d>
redo: <>[f]<f>[r]<r>[e][]<>[d]<d>

{
   print("norm: ");
...
   for (; /./g ; print("<$&>"),1) { next }
   print("\n");
}

norm: <f><r><e><d>
next: <><><><>

print("norm: ");
for (my $i; $i ? $i<2 : 'a'=~/./g; ++$i) {
...
   next;
}
print("\n");

norm: [a][a]
next: [a][]