Select Code to Download

my $var='474627    asidase ta sidase ala,"lpha-D- ctoside gtohydrolase
+","razyme","arazyme    (enz Corp)","Melie","lagal","idase bta",    ru
+g    00103';
my @each=split(/(?<!,)\t/,$var);
...
    {
       print "$eachvar\n";
     }

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

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