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

print defined($y) ? $y : '[undef]';  # XXX