my $pdl = PDL split '', $str;
my $result = sum( $pdl * 3 / 4 );