my @f = split / /, $_, 11;
     
    # skip files that have a space or other whitespace
    # characters in their name
    next if @f > 10;