$_ = 'p1r4k/8';
s/(\d+)/'-'x$1/eg;
print;