my $var = 5; { eval {$var = 3; next}; $var = 4; } print $var; # 3 !! #### eval {{ $i++; redo unless do_sth($i); }}