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

my %count;
$count{$_}++ for split //, $str1.$str2;

print grep $count{$_} == 1, keys %count;