perl redo: Век живы, век учись

[nataraj]

Читая книжку по внутренностям perl'а открыл для себя оператор `redo` который позволяет повторить выполнение блока кода. В случае если этот блок -- тело цикла, то цикл на следующую итерацию при этом не переходит:

my $i=0;
foreach (1,2,3)
{
  print $_,"\n";
  $i++;
  redo if $i<2;
}

печатает

1
1
2
3

PS так, постойте... В DW был же маркдаун... Куда делася? Не вижу как включить...