@lines1= split(//,"CACTATGAGTGATCGC");
@lines2= split(//,"ACTGACTAATGCGTTG");
@array = map {   $lines1[$i++] eq $_  ?   $lines1[$i-1] : '*' } @lines2;
print join "",@array;