Help for this page
s/ ( # Capture group $1 ... ) /int ($1) . " " x (length($1) - length(int($1)))/egx;