$zeile = "compute_sys.txt";
($vorn, undef) = split(/_/,$zeile,2); # split in zwei Teile, zweiter Teil wird undef, weil nicht benötigt
print $vorn;