my $tab = 8;

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