if (do { no warnings "uninitialized"; $foo eq "true" }) { ... }