#!/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; #### item 0-9 10-14 item\ 0-9\ 10-14