open DATAIN, 'file.txt' or die $!;
open DATAOUT, '>outputfile.txt' or die $!;
print DATAOUT join "", /URSPRUNG=(\d*)/, /CODE=(\d*)/,  /VOL=([\w\&]*)/, "\n" while <DATAIN>;
close DATAIN;
close DATAOUT;