next uness ($file =~ m/\.txt$/);