opendir (DIR,"$dir_path"); my @files=grep (!/^\.+$/,readdir (DIR)); # или foreach my $cur_file (readdir(DIR)){..} closedir (DIR);
@a = glob('/usr/local/*'); @b = glob('/usr/local/s*'); @c = </usr/local/*>; @d = </usr/local/s*>;
или я что-то упустил?