next if $file =~/^\.\.?$|\.pl$/;