perl expression - match string ignore if it contains "1" or "01"

[Suzy_Cat]

Hi there,

Hope to receive some help with perl expression, where there are two columns to compare with, the match column should be flagging should obs where it matches. example as below:

ColumnA    Column B     Mached

ABC01       ABC1            Y

PAB1         PAB01          Y

Cob1         COB1            Y

BDD01      BDC01          N

Thanks for helping.

Cheers

[ChrisNZ]

You have two almost identical questions in two threads. Are both actual questions? 

[Suzy_Cat]

Hi Chris, Thank you for pointing out the duplicates - have deleted now. It was due to system issue and I did not know the 1st attempte was successful.

[PGStats · Accepted solution]

Build on this:

data want;
set have;
s1 = prxchange("s/01/1/", -1, string1);
s2 = prxchange("s/01/1/", -1, string2);
match = upcase(s1) = upcase(s2);
run;

[Suzy_Cat]

That is super. Solves my problem perfactlyt. Thank you PG!