Help for this page
#!/usr/bin/env perl -l ... print $object; $object =~ s/( \d+-\d+)/\\$1/g; print $object;
item 0-9 10-14 item\ 0-9\ 10-14