Select Code to Download

my $tab = 8;

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

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