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