#!/usr/bin/perl

use strict;
use Data::Dumper;
use Text::TabDB;

my $a=shift;

Text::TabDB::tabdiv({},[split(/,/,$a)],@ARGV);