#!/usr/bin/perl

my $string=$_[0];
my $insert="\e[1K\e[10D";
my $max=5;

while (length($string) > $max) {
    $res .= substr($string, 0, $max).$insert;
    $string = substr($string, $max);
}
$res .= $string.$insert;
print "$res";