Shell Programming and Scripting

I got two files right now, input file (target file), reference file 1 (query file)

reference file 1 (long list of data)

Code:

KOLOPWMOPOPO
ADASDASD
ADSASDASDAD
.
.

target file (one long liner content)

Code:

ADASDASDTYUKOKOLOPWMOPOPOOPLUAADSASDASDADPOPOUYADADASDASD

desired output file content

Code:

XXXXXXXXTYUKOXXXXXXXXXXXXOPLUAXXXXXXXXXXXPOPOUYADXXXXXXXX

My purpose just want to replace those exactly character that shared among reference file 1 and target file with "X" word.
For speed up the process, Perl and awk language might be better since reference file 1 is long list of data.
Any advice or suggestion are appreciate

Try:

Code:

perl -pe 'BEGIN{open O, "reference_file_1"; chomp(@a=<O>)} for $i (@a){$x="X" x length($i);s/$i/$x/g}' target_file > output_file