$program = 'foo(bar(baz())';
while( evalable $program  ){
   $program = eval $program;
}
print $program;