my @files = grep { /^\.\.?$/ } bsd_glob( "{.*,*}" );