my $satz2 = 
    defined($table_stat->itemCget($r, $c, -text))
    && length($table_stat->itemCget($r, $c, -text))
    ? $table_stat->itemCget($r, $c, -text)
    : "";