my @files = grep {/^.*(\.pdf$)/i} readdir DIR;