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