my $zahl = (split(/\:/,$_))[1];