hi friend, Try out this one...

open(FILE,"file.txt") or die $!;
while(<FILE>){
($var1,$var2,$var3)=(split(',',$_))[0,1,-1];
$string="$var1".",$var2".",$var3\n";
$string=~s/(Id=)|(DE RecName: Full=)|(Type = )|\s//g;
print $string."\n";
}
close(FILE);
[download]