#!/usr/bin/perl
use strict;
use warnings;

my $ham = "spam\tspam\tspam\t\tyam\tclam";
my @jam;
for my $i (0, 3, 4) {
    push @jam, $ham =~ /(?:[^\t]*\t){$i}([^\t]*)/;
}

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