#! perl
use strict;
use warnings;

my $MATCH    =  1;
my $MISMATCH = -1;
my $GAP      = -1;

chomp(my $seq1 = <DATA>);
chomp(my $seq2 = <DATA>);

##</code><code>##

__DATA__
ATGTAGACCTAGATCATGATGACTGATGAT
ATTACCGATGACTGATGACTGATGACTGAT