igor@112: #!/usr/bin/perl
igor@112: 
igor@114: my $string=$_[0];
igor@114: my $insert="\e[1K\e[10D";
igor@114: my $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@114: print "$res";
igor@112: