s{ (\d+) }
{
   '-' x $1
}gex;

##</code><code>##

s{ ([1-8]) }
{
   '-' x $1
}gex;