my @auditofiles = grep { s/\A([^.]+)\.ram\z/$1/i }
                    readdir DH;