$num ~~ s:g/(^<[-+]>?\d+?<?before<[\d**3]+><!before\d>>|\d**3<?before\d>)/$1$sep/;