my @word = split " ", $_;