my $ham = "spam\tspam\tspam\t\tyam\tclam";

my @jam = ($ham =~ (m/^[^\t]+\t[^\t]+\t([^\t]+)(\t\t)([^\t]+)\t[^\t]+$/));

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