#! perl -sw
use strict;

while( !eof DATA ) {
	my $dna = <DATA>;
	my $cmp = <DATA>;
	(my $temp = $cmp) =~ tr[ACGT][TGCA];

	if ($dna eq $temp) {
		print "\nNo mismatches found\n";
		print $dna;
		print $cmp;
	} else {
		($temp ^= $dna) =~s[[^\0]][*]g;
		print "\nAsterists (*) indicate mismatches\n";
		print $dna;
		print $temp, $/;
		print $cmp;
	}
}


__DATA__
ACTGGTACATAGCTAGCTATAGCATACGATATAGACGTCTGCTAGTCGTCGTTTGCCTAAAGCCTAGATCGTAGCTAGTC
TGACCATGTATCGATCGATATCGTATGCTATATCTGCAGACGATCAGCAGCAAACGGATTTCGGATCTAGCATCGATCAG
ACTGGTACATAGCTAGCTATAGCATACGATATAGACGTCTGCTAGTCGTCGTTTGCCTAAAGCCTAGATCGTAGCTAGTC
TGACCATGTATCGATCGATATCGTATGCTATATCTGCAGACGATCAGCAGCAAACGGATTTCGGATCTAGCATCGATCA
ACTGGTACATAGCTAGCTATAGCATACGATATAGACGTCTGCTAGTCGTCGTTTGCCTAAAGCCTAGATCGTAGCTAGTC
TGACCATGTATCGATCGATATCCTAGGCTATATCTGCAGACGATCAGCAGCAAACGGATATCGGATCTAGGATCGATCAG