Mach aus @mach0 = s/DUT No\s(.+?)End Sequence: SetIdleCurrent\s/gsm; das hier:@mach0 = $_ =~ /DUT No\n(.+?)End Sequence: SetIdleCurrent/gsm;

Und aus ($seriennummer) = /Measurement:([0-9]{10})/; das hier:($seriennummer) = $_ =~ /Measurement:([0-9]{10})/;

Und aus print OUTPUT2 @mach0; das hier print OUTPUT2 $_

dann funktioniert auch Deins...