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