open DATAIN, '<old_data.txt' or die $!;
open DATAUOT 'new_data.txt' or die $!;
print DATAOUT join " ", /CODE=(\d*)/, /Zustand=(\w*)/, /Ursrpung=(\d*)/,
  /TYP=(\d*)/, /KENNUNG=(\w*)/, "\n" while <DATAIN>;
close DATAIN;
close DATAOUT;