my @files = grep /\s/, <*>;
foreach my $file (@files) {
	print ">>$file<<\n";
}