print DATAOUT join "", /URSPRUNG=(\d*)/, /CODE=(\d*)/, "VOL", /VOL=(\d*)/, /&(\d*)/g, "\n" while <DATAIN>;