Select Code to Download

./script.pl "\t" ARG1 ARG2

my $delim = shift @ARGV;
$" = $delim;
...
print "@list";

list_item1\tlist_item2\tlist_item3

list_item1   list_item2    list_item3

$" = "\t"