$sum = 0; 
$sum += $_ for unpack 'C*', "This is a string to change to binary"; 
print $sum;;
3325

##</code><code>##

print unpack '%32C*', "This is a string to change to binary";;
3325

##</code><code>##

print unpack '%64C*', "This is a string to change to binary";;
3325