$daten = <>;
@daten = split("",$daten);
splice(@daten,3,5);
shift@daten;
splice(@daten,1,1);
@zahl = @daten;
pop @zahl;
$zahl = join("",@zahl);
@potenz = splice(@daten,1,1);
$potenz = join("",@potenz);