Select Code to Download

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

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