for(<DATA>){print$1x($2?$2:1)while/(\D)(\d*)/g}\x0d
__DATA__\x0d
_13*_15\x0d
_12*3_14\x0d
_11*o_o*_13\x0d
_10*o_3o*_12\x0d
_9*o_5o*_11\x0d
_8*o_3o_3o*_10\x0d
_7*o_3o_o_3o*_9\x0d
_6*o_o_o_3o_o_o*_8\x0d
_5*_3*o_5o*_3*_7\x0d
_8*o_7o*_10\x0d
_7*o_4o_4o*_9\x0d
_6*o_4o_o_4o*_8\x0d
_5*o_4o_3o_4o*_7\x0d
_4*o_2o_o_5o_o_2o*_6\x0d
_8*o_7o*_10\x0d
_7*o_9o*_9\x0d
_6*o_11o*_8\x0d
_5*o_13o*_7\x0d
_4*o_15o*_6\x0d
_3*o_17o*_5\x0d
_2*o_19o*_4\x0d
_*o_o_o_o_o_o_o_o_o_o_o_o*_3\x0d
_12o_o_14\x0d
_12o_o_14\x0d
_12o_o_14\x0d
_12o_o_14\x0d
_12o_o_14\x0d
_12o3_14\x0d
Note that non-ascii characters in the above source code will be escaped (such as \x9f).