http://www.perlmonks.org?node_id=984865


in reply to find words in array

$word = <STDIN>; chomp $word;

See also: