dna

use Mojo::Base -strict;
use Mojo::Util 'dumper';

use Algorithm::Diff 'sdiff';

my @a = split //, 'acaagaaaagagacgaaagacacaggggcgccgagggcagaagaaagagcaacgacggcccacaaaagcgggaacgccag';
my @b = split //, 'acaagaaaagatatgaaagacacaggggcgccgagggcagaagaagcaacgacggcccacaaaagcgggaggctgaaacgccag';

my @sdiff = sdiff(\@a, \@b);
say join '', map { $_->[1] || ' ' } @sdiff;
say join '', map { $_->[2] || ' ' } @sdiff;
say join '', map { s/u/ /r } map { $_->[0] || ' ' } @sdiff;

__END__
acaagaaaagagacgaaagacacaggggcgccgagggcagaagaaagagcaacgacggcccacaaaagcggg       aacgccag
acaagaaaagatatgaaagacacaggggcgccgagggcagaagaa g  caacgacggcccacaaaagcgggaggctgaaacgccag
           c c                               - --                       +++++++