my $s1 = "ACTGGA";
    my $s2 = "AGTG-A";

   # Note the string can be longer than this.
   # But they are always of the same length.