my @files = map s/\.[Rr][Aa][Mm]$// ? $_ : (), readdir DH;