@allfiles = grep { m/^xxxx/ } readdir THEDIR;