$_="1\t12\t123\t1234\t12345\t";
$s=4;split/\t/;print map{$_.=q/ /x$s;substr $_,0,$s*int(length($_)/$s)}@_;