Зачем мне нужен еще один блок IPv6?

Вот решение Perl:

$ perl -F= -lae '$F[1]=~s/[^0-9]//g; push @h,$F[0]; push @l,$F[1]; 
                  END{print join ",",@h; print join ",",@l}' OpenSimStats.txt 
TestreportsRootAgentCount,TestreportsChildAgentCount,TestreportsGCReportedMemory,TestreportsTotalObjectsCount,TestreportsTotalPhysicsFrameTime,TestreportsPhysicsUpdateFrameTime,TestreportsPrivateWorkingSetMemory,TestreportsTotalThreads,TestreportsTotalFrameTime,TestreportsTotalEventFrameTime,TestreportsLandFrameTime,TestreportsLastCompletedFrameAt,TestreportsTimeDilationMonitor,TestreportsSimFPSMonitor,TestreportsPhysicsFPSMonitor,TestreportsAgentUpdatesPerSecondMonitor,TestreportsActiveObjectCountMonitor,TestreportsActiveScriptsMonitor,TestreportsScriptEventsPerSecondMonitor,TestreportsInPacketsPerSecondMonitor,TestreportsOutPacketsPerSecondMonitor,TestreportsUnackedBytesMonitor,TestreportsPendingDownloadsMonitor,TestreportsPendingUploadsMonitor,TestreportsTotalFrameTimeMonitor,TestreportsNetFrameTimeMonitor,TestreportsPhysicsFrameTimeMonitor,TestreportsSimulationFrameTimeMonitor,TestreportsAgentFrameTimeMonitor,TestreportsImagesFrameTimeMonitor,TestreportsSpareFrameTimeMonitor,TestreportsLastReportedObjectUpdates,TestreportsSlowFrames
0,0,10,0,0,0,2144,0,89,0,0,25,1,553333320617676,554766654968262,0,0,0,0,0,0,0,0,0,1818239402771,0,00106373848393559,017440040409565,0,0,181818199157715,0,1

Флаг -a заставляет perl действовать как awk и разделять каждую строку ввода по разделителю полей, заданному -F (здесь = ) в массив @F . -l добавляет \ n к каждому вызову print , а -e - это сценарий, который будет запускаться в каждой строке.

• $ F [1] = ~ s / [^ 0-9] // g; : удалите все нечисловые символы из 2-го поля (массивы начинают отсчет с 0, поэтому $ F [1 ] - второе поле).
• push @ h, $ F [0]; push @ l, $ F [1]; : вставьте первое поле в массив @h , а второе (теперь, когда нецифровые символы удалены) в массив @ l .
• END {} : выполняется один раз после обработки всего входного файла.
• print join ",", @ h; : соедините массив @h с , и распечатайте его.
• print join ",", @ l : как указано выше, но для @l .