#!/usr/local/bin/perl -w

$zeile = "compute_sys.txt";
@c = split(/_/,$zeile,2);

foreach $x (@c) { print "$x\n" }