Ok I see what you mean now. This will solve the matter:
$regsubex($str(.,40),/./g,$gettok($r(a,z) $r(0,9) $r(A,Z),$r(1,3),32))
AN140wWI6zP9714hjlG8Jos95tM0JysL4WIOLW4v X3u2790i44c39vPfL1o48QaS5OFTbbEjeJ50WRj0 NR6GaAsWctk19L1Qe2PyuCWxGrP87Z9JIJ5IfM94 J84I42CV8VwMh8Q97389UFC9ZgLhj1l2k5OEmImY