$word = <STDIN>;
chomp $word;