Используя команду 'ls -R' в perl, каков параметр для поиска файлов с расширением .txt в текущем и 1 подкаталоге? Кроме того, как подсчитать количество файлов и, если число равно одному или более, сделать блок кода, который открывает файлы один за другим, как в цикле?