my @files =  map { /^\s*(\S.*?)\s*$/ && $1 || "" } <$FILES>;