data test;
  input var1 $10.;
datalines;
aar
bbr
rcrr
bdffr
; run;

data test_out;
    set test;
        if substr(var1, length(var1)) = 'r' then do;
            var2 = substr(var1,1,length(var1)-1);
                end;
run;