if (do {my $x = f(); $x and g($x)}) {
  ...
}