How to remove three number in the front or two letters in the end?

[ybz12003]

Hello,

I would like to remove 000 in the front and two letters in the end in the TempID?  Thanks.

data datain;
	format TempID $ 200. ;
	input TempID & ;
	cards;
	5648MA
	0009463
	0004721
	6325IL
	0065VN
	0435KK
;
run;

[PaigeMiller]

Could you please explain the problem more completely and accurately? None of the examples you show has three numbers before the letters. What should we do with values that don't have two letters at the end? Are the two letters always in the same positions?

[ybz12003]

Sorry for the confusion.

Remove the follow:

1.  000 is always in the front of the four digits number.

2.  Two letters are always at the end of the four digits numbers. 

I think it might better clean up in two different groups.  

data dataout;
	format TempID_ $ 200. ;
	input TempID_ & ;
	cards;
	5648
	9463
	4721
	6325
	0065
	0435
;
run;

[PaigeMiller]

I'm afraid I'm totally lost here. Your reply doesn't seem to clarify the problem for me. 

[novinosrin · Accepted solution]

data datain;
	format TempID $ 200. ;
	input TempID & ;
	cards;
	5648MA
	0009463
	0004721
	6325IL
	0065VN
	0435KK
;
run;

data want;
 set datain;
 length want $4;
 want=prxchange('s/(^000)(\d{4})/$2/',-1, tempid);
run;