You may want to consider adding the numbers:
$regsubex($str(.,40),/./g,$gettok($r(A,z) $r(0,9),$r(1,2),32))