my $y;
if (($y) = f($x)) {   # Returns () on error.
   ...
}