$l=@a=split//,<>;for(reverse@a){printf"%0${l}d$s
",$_ for$t..$_;$s=$_.$s;$l--;$t=1}