Select Code to Download

my $first = ''; my $second = ''; my $third = ''; my $fourth = ''; my $
+fifth = ''; my $sixth = '';

...

    print "$first\t$second\t$third\n";

Expected output:
<chap <book <isb