Hehe, thanks mtve. But I was going for speed over size. 8^)

Oh yah,
Touché!

sub add(){
    ($,,$:)=@_;
    s//0 x(length($,^$:)-length)/efor$,,$:;
    $^.=0,map$^++,1..$_+$&*$:=~//for$,=~?.?g;
    $^
}
[download]

-inno