Select Code to Download

my $ham = "spam\tspam\tspam\tyam\tclam";
my $word    = qr{[^\t]+};
...
                        \z                 # and then it's the end of 
+the string
                       }xms);
print join("\n", '**', @jam, '**', '');

my @jam = ( spit "\t", $ham )[2,3];