Select Code to Download

my $sep_re = quotemeta($sep);

my @fields = split(/$sep_re/, $_);

my @fields = split(/\Q$sep/, $_);

$\ = "\n";
$, = ";";
...
   print @fields;
   print '';
}

a,b,c
a;b;c
...

a|b|c
a;b;c

$\ = "\n";
$, = ";";
for my $sep ('\t', "\t") {
   print split(/\Q$sep/, "foo\tbar\\tbaz");
}

foo     bar;baz
foo;bar\tbaz