my @w = split /\s/, $line;