Splitting data from singrl variable to multiple variable using condition

[Naveen45]

I have data in this format,

datalines

 sriram bhayagari gsr4455

naveen gsr5566 allapuram

gsr6677 srinath thatipathri

need output like 

Emp Name                  ID

Sriram bhayagari            4455

Naveen allapuram          5566

srinath thatiparthi            6677

[andreas_lds · Accepted solution]

Use compress-function to get the id, than remove "gsr"+id from line to get EmpName.

data want;
   length 
      EmpName $ 100 
      Id $ 4
   ;
   input;

   Id = compress(_infile_, ' ', 'dkt');
   EmpName = strip(compbl(transtrn(_infile_, cats('gsr', Id), '')));

   datalines;
sriram bhayagari gsr4455
naveen gsr5566 allapuram
gsr6677 srinath thatipathri
;
run;

[Jagadishkatam]

try the perl expression

data have;
input name &:$200.;
id=strip(prxchange('s/(.*)(gsr)(\d+)(.*)/$3/',-1,name));
Emp_Name=strip(prxchange('s/(.*)(gsr\d+)(.*)/$1$3/',-1,name));
cards;
sriram bhayagari gsr4455
naveen gsr5566 allapuram
gsr6677 srinath thatipathri
;