Help for this page

Select Code to Download

Select or download this

sub merge {
    my ($s1, $s2) = @_;
...
    substr($s1,$pos) = $s2;
    return $s1;
}

Select or download this

$ merge.pl ATTTA TTTAA
ATTTAA
...
ATGTA
$ merge.pl ATGATG ATGATG
ATGATG