my $result = 0;
for my $i ( 0 .. length( $str ) - 1 ) {
    $result += ord( substr $str, $i, 1 ) * 3 / 4;
}
return $result;