AGACACTACTGCTG
 *****    ***
ACTACTTACCATCG


##</code><code>##


my $mismatches = get_mismatches ($genome1, $genome2);

my @strings = ($genome1, $mismatches, $genome2);

  for (my $x = 0; $x < length ($strings[0]; $x +=60)  {

     print join ("\n", map (substr ($strings[$_], $x, 60), 0 .. 2)). "\n\n";
  
   }


##</code><code>##


TGTATCTACTGACTGAC
TGTATCTACTGACTGAC
TGTATCTACTGACTGAC

ATCTG
ATCTG
ATCTG