Remove last two words in a free text field

[eemrun]

I have addresses that I need to separate as street address. The last two words in the address field is usually the region and city. Any ideas?

Before
Hillcrest Avenue Hillcrest Auckland

After
Hillcrest Avenue

[Ksharp]

data _null_;
x='Hillcrest Avenue Hillcrest Auckland   ';
y=prxchange('s/\w+\s+\w+$//',1,strip(x));
put x= y=;
run;

[Astounding]

In practice, you might want to check that you have more than 2 words in the address, before doing this:

address = substr(address, 1, length(address) - 2 - length(scan(address, -1)) - length(scan(address, -2)));

[novinosrin]

data _null_;
x='Hillcrest Avenue Hillcrest Auckland   ';
call scan(x, -2, position, length);
substr(x,position)=' ';
put x=;
run;