use Sed;


open(FILE, "<fields01.dat");

while(<FILE>) {
    
    $_ = sed { s/\$//g } $_;
    $_ = sed { s/,//g  } $_;  
      
    ($rectype, $_) = split(/\~/, $_);
    printf("%s : %s\n", $rectype, $_);
    if ($rectype == "C")
      {
        ($empno, $fName, $lName, $job, $age, $salary) = split(/\|/, $_,6);
       printf("Employee NO:%s Name:%s FamilyN:%s Job:%s Age:%d  Salary:%10.2f\n",
               $empno, $fName, $lName, $job, $age, $salary);        
      }
     else
      {
        ($empno, $fName, $lName, $salary) = split(/\|/, $_,4);
        printf("Employee NO:%s Name:%s FamilyN:%s Salary:%10.2f\n",
               $empno, $fName, $lName, $salary);        
       }   
}

close(FILE);