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


in reply to Binary value of string

untested

my $string = "some string"; my $sum = 0; $sum += ord($_) for( split('',$string) );