my ( $str1, $str2 )  = ( 'ABCDEA', 'BCDEO' );