Help for this page
for (1..5) { print if eval{ do_foo() && do_bar() } or warn $@; }
for (1..5) { print if eval{ ... 0 }; }