my @paar =~ split /(..)/g, $daten;
   foreach $test2 (@paar){
   print $test2 ."\n";
   }