$num ~~ / ^ $<vorzeichen>=[ <[+-]>? ] $<ganze>=[ \d+ ] $<rest>=[ [ \D \d+ ] ? ] $ / or return $num;
return  $<vorzeichen> ~ $<ganze>.flip.comb( / . ** 1..3 / ).join( $sep ).flip ~ $<rest>;