This can be done in many different ways. Below are fairly interactive methods
Starting table
Quick formula:
Right click on your column and take first word
Using recode:
Select your column and go to Cols/Recode, find extract segment (could also use First word)
Use slider to pick correct parts and check from bottom that you are getting correct result
and you will end up with column like
Getting the text:
You can then repeat the recode process to create other column or create a column which substitute the newly created values from original column with missing string (might want to add extra space there or wrap it with Trim Whitespace() function)
Substitute(:Column 1, :Column 1 2, "")
-Jarmo