($komp_dir = $fields[6]) =~ /(^\d*)_(\w*)$/;