note Utilitarian <c> #!/usr/bin/perl -w use strict; use Data::Dumper; { local $/; # unset the input record seperator in order to slurp the contents of STDIN my %hash; %hash = map { chomp; $_ => '1' } split /(\s+|\W+)/, <>; } print Dumper(\%hash); # because that's how it's supposed to be used ;) </c> <!-- Node text goes above. Div tags should contain sig only --> <div class="pmsig"><div class="pmsig-681898"> <c>print "Good ",qw(night morning afternoon evening)[(localtime)[2]/6]," fellow monks."</c> </div></div> 968746 968746