my $tab = 8;

while (<DATA>) {
	chomp;
	my @fields = split(/\t/, $_);
	my $cooked = shift (@fields) . join '', sprintf("-$tab%s", @fields);
	print $cooked, "\n";
}

##</code><code>##

my $tab = 8;
s/\t/" " x $tab/ego;