@a = grep(!/^.$/, `find .`); print @a;