my %hash;
%hash = map { chomp; $_ => '1' } split /(\s+|\W+)/, <>;

##</code><code>##

my %hash = map /(\w+)/ ? ( $1, 1 ) : (), <>;