my $string = "2013020400000000006810083610022013068100200220130688000200494";
my $n = -1;
substr $string, $n += 1 + $_, 0, "\t" for 17, 6, 31, 3, 3;
print "$string\n";