高手救命！我遇到一个问题，急需处理

高手救命！我遇到一个问题，急需处理：

在一个主文件夹 Profile 里有10个小文件夹（Salary, Birthday, Comment...），每个小文件夹里都有（wang_wei, Li_li, Zhang_hong, Lu_sheng, Cheng_lin, Guo_xiaoqing....）这样的文件。

用perl编个程，把所有的文件里的“The best thing for him”改成：“Reasonally”。

求高手给编个程序。先谢谢啦！

不需要打开每一个主、分文件夹就可以修改

File::Find + s///

#!/usr/bin/perl

use strict;
use warnings;

use File::Find;
use IO::File;

my @dir = ('Profile');

my $wanted = sub {
        next if /^\.+$/;

        my $file = IO::File->new("+>$_");
        my $temp = join '', $file->getlines;
        $temp =~ s/\bThe best thing for him\b/Reasonally/mg;
        $file->print($temp);
}

find($wanted, @dir);


----------------------------------------------------------

没测试，不知道能不能运行，后果自负 ：）

需要用perl吗？
find . -type f -exec sed -i 's/The best thing for him/Reasonally/' {} \;

find真是强大呀，这个方法好！