in reply to A silly reg exp question
$_ = 'p1r4k/8'; s/(\d+)/'-'x$1/eg; print; [download]
Output: p-r----k/--------