tests_recursive;
tests( join(q{ }, split(m{\s}, tests)) );

という感じで一応できる。

けどなんかバッドノウハウな感じがしなくもない＞＜