Select Code to Download

my $ham = "spam\tspam\tspam\t\tyam\tclam";
my @jam = ($ham =~ (m/^[^\t]*\t[^\t]*(?:\t([^\t]*)){3}\t[^\t]*$/));
print join("\n", '**', @jam, '**', '');

**
yam
**

**
spam

yam
**