# wakannai :(
@a=1;
map{
s/a/111/g;
@a-2||s/^/$a /;
s/-.*//;
$a[-1]+=$&;
print"@a \n";
$a=$a[-2];
@a=($a[-1],split);
$a[-$_]+=$a[~$_].1for-@a..-1;
$a[0]+=$&;
}
<"{,,,,11,,,,a-3,,,5 a321,,a 11-19,,1092,19,a723 a11,,1107,12294 a32054 a3211-19,}">
Note that non-ascii characters in the above source code will be escaped (such as \x9f).