columnator.pl

while(<>) {
  chomp;
  my $len = length($_);
  my $steps = int(log($len)/log(10));
  for (my $o = $steps; $o >= 0; $o--) {
    my $n = 1;
    for (my $i = 0; $i < $len-(10**$o)+1; $i+= 10**$o) {
      print " " x ((10**$o)-1) . ($n++ % 10);
    }
    print "\n";
  }
  print "$_\n";
}