foreach my $file ( grep /\.asp$/i, readdir DIR ) {