#!/usr/bin/perl

use strict;
use warnings;
use feature qw/say/;
use English;

$LIST_SEPARATOR = ",";

while(<DATA>) {
    chomp;

    my @a = split /\t/;
    my @b = split "\t";
    my @c = split "/\t/";

    say "@a";
    say "@b";
    say "@c";
}

__DATA__
foo     bar
foo/    /bar