my @files = grep { /\.(html?|txt|pdf|ppt|csv|doc)(\.|$)/i} readdir $DH;