#################################
# 任意位數(可超過 32bits or 64bits)

$num = '123456789123456789123456789';

print &Cal(length($num) - 1);

sub Cal{

   my $pos = shift;

   return 0 if($pos < 0);

   return substr($num,$pos,1) + &Cal($pos - 1);

}

135