@segments = split("_", $line);