opendir PROJ, "./$currentProject" or die "Could not open CVS dir $currentProject: $!\n";

my @files = grep /((\w|_)+(?=\.(pl|php|inc|js)$))/, readdir PROJ;

closedir PROJ;