foreach (split /\s+|\n/, $line)