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