#!/usr/bin/perl -s

use strict;
use Text::TabDB;
use Data::Dumper;
#undef $/;
#$/='';


for("a\tb\tc", qw{
a:b:c
a::b::c
a=b
a===b==c=d
a
}){
 print "$_   = '";
 print Text::TabDB::guess_fs($_),"'\n";
 print Dumper(Text::TabDB::_esq($_));
}