in reply to recode 2 strings into 1

Maybe compare two arrays can get you on the right path.

In Section Seekers of Perl Wisdom