my $var='474627	asidase ta sidase ala,"lpha-D- ctoside gtohydrolase","razyme","arazyme	(enz Corp)","Melie","lagal","idase bta",	rug	00103';
my @each=split(/(?<!,)\t/,$var);

for my $eachvar(@each)
    {
       print "$eachvar\n";
     }

##</code><code>##

474627
asidase ta
sidase ala,"lpha-D- ctoside gtohydrolase","razyme","arazyme
(enz Corp)","Melie","lagal","idase bta",        rug
00103

##</code><code>##

474627
asidase ta
sidase ala,"lpha-D- ctoside gtohydrolase","razyme","arazyme	(enz Corp)","Melie","lagal","idase bta",
rug
00103