my @files = grep {/^xxxx/} readdir(DIR);