my @zeilen = `df -h`;
my $used;

for my $zeile (@zeilen) {
    if ($zeile =~ m[(\d+)%\s+\/$]) {
        $used = $1;
        last;
    }
}

die "df -h doesn't show root usage\n" if ! defined $used;

if ($used > 50) {
    # ...