grep{open _,$_;map/@_/,<_>}<*>