{local $_ = $bar; $foo = $_ if defined $_;}

$foo = $_ for grep defined, expensive();
[download]