Select Code to Download

#!/usr/bin/perl
use strict;
...

Matched: TGCT at possition 1 of @seq1.
Matched: GTCA at possition 4 of @seq1.

#!/usr/bin/perl
use strict;
...
          'On element: 4 from @seq1, character G missmatched C form @s
+eq2 at position 3',
          'On element: 4 from @seq1, character A missmatched C form @s
+eq2 at position 3'
        ];