P:\test>p1
perl> sub merge{
    my( $s1, $s2 ) = @_;
    my $i= length $s1;
    $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' );;
ATGTA
perl> print merge( 'ATGATG', 'ATGATG' );;
ATGATG
perl> print merge( 'ATGGTAC', 'CCGTAATG' );;
ATGGTACCGTAATG