Select Code to Download

060,071905,001206656,80,199,23,612,129,3,99,005168,
060,071905,001366155,80,199,41,611,750,3,99,100471,
060,071905,003326935,80,199,11,612,113,3,23,018042,

elsif ($type eq "060"){
  $parsDat[0] = substr($input, 0, 3);     #Record type
...
  $parsDat[9] = substr($input, 33, 2);    #code
  $parsDat[10] = substr($input, 35, 6);   #code
  $parsDat[11] = substr($input, 41, 39);  #code

$output = join(",", @parsDat);
print $handle "$output\n";