P:\test\Vector maps>p1
perl> sub merge{
    my( $s1, $s2 ) = @_;
    my $i=1;
    $i++ until substr( $s1, -$i ) eq substr( $s2, 0, $i );
    return $s1 . substr( $s2, $i );
};;
perl> print merge( 'ATTTA',  'TTTAA' );;
ATTTAA
perl> print merge( 'ATGTA', 'ATGTA' );;
ATGTATGTA
perl> print merge( 'ATGATG', 'ATGATG' );;
ATGATGATG
perl> print merge( 'ATGGTAC', 'CCGTAATG' );;
ATGGTACCGTAATG