[Perl] うおおおその動きは保障されていないいいい...

my $cnt = 0;
foreach my $val (@Ary){
 ...

[Perl] VBとPerlを行ったり来たりした結果

# 条件に一致したファイルを削除
foreach $file ( @files...

[Perl] コメントアウト

if (0)
{
  # 処理
}