perl -wE '$_ = "7-12"; say join " ", [/(\d+)-/]->[0]..[/-(\d+)/]->[0]'