my $ham = "spam\tspam\tspam\t\tyam\tclam";
my @jam;
$ham =~ s/^[^\t]*\t[^\t]*((?:\t[^\t]*){3})\t[^\t]*$/push @jam,(split "\t",$1);$1/eg;

print join("\n", '**', @jam, '**', '');