使用perl语言实现如下要求： 遍历AVM文件夹下的两个子文件file1和file2，每个子文件下存在一些文件，如果匹配了以pwr.v和.v为结尾的文件，打印输出yes，否则输出no。

以下是使用 Perl 语言实现遍历 AVM 文件夹下的两个子文件 file1 和 file2，每个子文件下存在一些文件，如果匹配了以 pwr.v 和 .v 为结尾的文件，打印输出 yes，否则输出 no 的代码：

use strict;
use warnings;

my $dir = "AVM";
opendir(my $dh, $dir) || die "Can't open directory: $!";
while (my $subdir = readdir($dh)) {
    next if ($subdir =~ /^\./); # skip hidden files
    next unless (-d "$dir/$subdir"); # only process directories
    next unless ($subdir eq "file1" || $subdir eq "file2"); # only process file1 and file2
    opendir(my $subdh, "$dir/$subdir") || die "Can't open subdirectory: $!";
    while (my $file = readdir($subdh)) {
        next if ($file =~ /^\./); # skip hidden files
        if ($file =~ /\.pwr\.v$/ || $file =~ /\.v$/) {
            print "yes\n";
        } else {
            print "no\n";
        }
    }
    closedir($subdh);
}
closedir($dh);

注意：这是一个 Perl 脚本，需要在 Perl 环境下运行。可以使用命令行运行，例如：

perl script.pl

其中，`script.pl` 是保存上述代码的文件名。在运行之前，需要将 AVM 文件夹放在当前目录下。