if( my $want = Dive( $foo, qw/ bar anything you want / ) ){
...
}