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

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