grep returns the whole filenames, not just a parenthesized group. I think what you want is my @audiofiles = map { /([^\.]+)\.ram/i ? $1 : () } readdir DH;