how to add '0's in the tail

shiyiming

data a;
input cpt $5.;
cards;
0059
69
035
04119
;
run;

I am trying to add '0'(s) in the tail of each value in data a(see above), if the value less than 5 digits. and the following data b is what I wanted:
data b:
00590
69000
03500
04119

Thanks!!!

shiyiming

[code:fv4klgon]data b;
set a;
new_cpt=cats(cpt,"0000");
new_cpt=substr(compress(new_cpt),1,5);
run;
[/code:fv4klgon]

shiyiming

[code:8zxen6i8]data a;
    input cpt $5.;
    cpt=prxchange('s/\s/0/',-1,cpt);
cards;
0059
69
035
04119
;[/code:8zxen6i8]