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