Remove test when it hits a 'Title'

[KC_16]

Hi,

I have a variable (order_message) whereby some outputs are personalised to a an individual (example below)

Congratulations on your order Mr Ben Griggs

Congratulations on your order Mr Trevor Terry

Congratulations on your order Miss Kate Jones

Congratulations on your order Dr Jon Berry

How do I write some code to say if at the end of an order_message we have a title that consists of either of the following Mr, Miss, Mrs, Dr, Sir, Ms, Prof. then delete so all we see is 'Congratulations on your order'? 

Thanks

[PeterClemmensen · Accepted solution]

data have;
input order_message $ 1-46;
datalines;
Congratulations on your order Mr Ben Griggs
Congratulations on your order Mr Trevor Terry
Congratulations on your order Miss Kate Jones
Congratulations on your order Dr Jon Berry
;

data want;
    set have;
    newVar=prxchange('s/(Mr|Miss|Mrs|Dr|Sir|Ms|Prof).*//', -1, order_message);
run;

Result:

order_message                                  NewVar
Congratulations on your order Mr Ben Griggs    Congratulations on your order
Congratulations on your order Mr Trevor Terry  Congratulations on your order
Congratulations on your order Miss Kate Jones  Congratulations on your order
Congratulations on your order Dr Jon Berry     Congratulations on your order

[Ksharp]

I think you should add \b.

data want;
    set have;
    newVar=prxchange('s/\b(Mr|Miss|Mrs|Dr|Sir|Ms|Prof)\b.*//i', -1, order_message);
run;

Otherwise ,something like 

"Congratulations on your ordMr Mr Ben Griggs"

would get you wrong result .