sub integer {
    my $wert = shift (@_) || 0;
    return 'FEHLER' if $wert =~ /e\+?\d+$/;
    return 0 if $wert =~ /e-\d+$/;
    $wert = $1 if $wert =~ /^(.*?)\./;
    $wert = 0 if !$wert or $wert == -0;
    return $wert;
}