if (substr($line,73,8) =~ /(\d?\.?\d?\d?\d?\,\d\d)/)
{
push (@neuer_stand, toZahl(substr($line,73,8)));
}