Select Code to Download

sub f {
my($s,$t)=@_;$t?$$t{d}eq$s?$t:f($s,$$t{l})||f($s,$$t{r}):0
}

$t = {
    d => 'd',
...

test('e',$t);
test('O',$t);