How to make it ass valid email adrdress?

[Siva_Harish]

Hi All,

I have different type of data like com,.com and for  some data don't have any com or .com just ended with .(dot). so, i want add '@gmail.com'  to make it as valid mail address by removing dot at the end (if exists) .

data have;

input gh $50.;

datalines;

siva.harish.507.com

charyawkward

mankindcom

sooper.12.dooper.

;

run;

data want;

input gh $50.;

datalines;

siva.harish.507@gmailcom

charyawkward@gmail.com

mankind@gmail.com

sooper12dooper@gmail.com

; run;

My Code

data ds;

set have;

sa=find(gh,"com");

bd=substr(gh,1,sa-1);

sdj=compress(bd||'@gmail.com');

run;

[Ksharp · Accepted solution]

data have;
input gh $50.;

want=cats(prxchange('s/(\.|com|\.com)$//',1,strip(gh)) , '@gmail.com');

datalines;
siva.harish.507.com
charyawkward
mankindcom
sooper.12.dooper.
;
run;

[Siva_Harish]

Thank you soo much!!  @Ksharp