my $fixed = join '', map { $_ . ' 'x(((int(length()/$tab)+1)*$tab)-length) } split /\t/;