DB<5>  $object = "2-4 5-12"

  DB<6>  $object =~ s/([-\d]+)/\\$1/g

  DB<7> p $object
\2-4 \5-12