use strict;
use warnings;
use Data::Dumper;

chomp($_ = <DATA>);

my %rec; $rec{$1} = $2 while m/(\d+),"(.*?)"/g;

print Dumper(\%rec);

__DATA__
0,"104"1,"Assign Tracking Numb"29,"905745371116"526,"0201"99,""