my ($PERcode,$FDXcode,...)= split /,/,$line2;