$\ = "\n";
$, = ";";
for my $sep (",", "\t", "|") {
   my $line = join($sep, qw( a b c ));
   print $line;
   my @fields = split(/\Q$sep/, $line);
   print @fields;
   print '';
}