Подскажите как разобрать строку

Spearance 15.02.2004 09:34 / 15.02.2004 10:19

6.15, 6.45, 7.15, 7.45, 8.10, 11.20, 14.10, 16.40, 20.30 "Вести Регион-Тюмень".

чтобы получить, таблицу:
6.15 "Вести Регион-Тюмень".
6.45 "Вести Регион-Тюмень".
и т.д.

пока пришло только такое решение.

$str[6.15, 6.45, 7.15, 7.45, 8.10, 11.20, 14.10, 16.40, 20.30 "Вести Регион-Тюмень".]
$parts[^str.split[, ;vl]]
^parts.offset(-1)
$title[^parts.piece.match[\d{1,2}\.\d{2}\s(.*?)^$][m]{$match.1}]
^parts.menu{
	^if(^parts.piece.match[^^\d{1,2}\.\d{2}^$][m]){
		$result[$parts.piece $title^#0A]
	}{
		$result[$parts.piece]
	}
	^result.save[append;/test.txt]
}

---