$daten[6] = $digits[7]; my $mitpunkt = $daten[6]; $mitpunkt =~ s/\.//g; $daten[6] = $mitpunkt; $daten[7] = $digits[8];