To extract Alpha/numerical from a sentence

[Ksharp]

I like Perl Regular Expression.

DATA HAVE;
INPUT COL $ 30.;
  IF _N_ = 1 THEN DO;
       RETAIN re;
       re = PRXPARSE("/([A-Z]{2}\s*\d{4})/");
  END;
 if prxmatch(re,col) then  COL1 =prxposn(re,1,col);
DATALINES;
BLAH BLAH TG2001
BLAH DF0001
BLAH BLAH FG0001 BLAH BLAH
BLAH GH 0004
;
RUN;

Xia Keshan