my @files = grep(/xxxx\w+/,readdir(DIR));