my $ans = ( $str ^ ( $SrchStr x length $str ) ) =~ tr[\0][\0];