여러 디렉터리의 파일에서 데이터 추출

저는 Perl을 처음 사용하고 여러 디렉터리에 있는 .txt 확장자를 가진 파일에서 "Hello World"라는 단어를 추출할 수 있는 Perl 스크립트(또는 bash 스크립트)를 만들려고 합니다. 더 명확하게 설명하기 위해 내 스크립트가 폴더, 임시 파일, 문서 등의 하위 디렉터리가 있는 "/home/pi/A" 디렉터리에 있다고 가정해 보겠습니다(디렉토리는 모르지만 이는 단지 예일 뿐입니다). /home/pi/A/Folder 디렉터리에는 .txt 파일이 있고, /home/pi/Temp에도 .txt 파일이 있습니다. 이게 내 코드야

 #!/usr/bin/perl -w

 opendir(DIR, ".");
 @files = grep(/\.txt$/,readdir(DIR));
 closedir(DIR);

 foreach $file (@files) {
    print "$file\n";
}

출력은

Hello World  
Hello World
Hello World
So on...