Yeah, substr abound, and yet, it's really quite fast.

You can speed up some of the substr usage by using four arguments instead of using substr as an lvalue.    For example: substr($num, $cx, 1, $noch + 1) instead of substr($num, $cx, 1) = ($noch + 1).