s/[()]//g;
@t=split(/\t/,$_);