s/(10*1)/1 x length($1)/eg;