note Not_a_Number <p>Yet another (short) way:</p> <c>my ( $str1, $str2 ) = ( 'ABCDE', 'BCDEO' ); my %count; $count{$_}++ for split //, $str1.$str2; print grep $count{$_} == 1, keys %count;</c> 1016850 1016850