(/\./ ? push @files, $_ : push @dirs, $_) for @unscont;