@fields = split (/[^,]\t/,$record)