用perl实现快速搜索的代码

#!/usr/bin/perl
use File::Find; use Cwd; $d=cwd;
sub wanted{
    push @a,$File::Find::name if m/搜索内容/gi;
}
find (&wanted,"$d");
print $_,"n" for @a;
$_=<>;