my ( @words ) = split /\s/, $line;