#!/usr/bin/env perl -l use strict; use warnings; my $object = 'item 0-9 10-14'; print $object; $object =~ s/( \d+-\d+)/\\$1/g; print $object;