igor@112: #!/usr/bin/perl
igor@112: 
igor@112: $string="abcdefghijklmnopqrstuvwxyz";
igor@112: $insert="\e[1K\e[10D";
igor@112: $max=5;
igor@112: 
igor@112: while (length($string) > $max) {
igor@112:     $res .= substr($string, 0, $max).$insert;
igor@112:     $string = substr($string, $max);
igor@112: }
igor@112: $res .= $string.$insert;
igor@112: print "$res\n";
igor@112: