Select Code to Download

Can't modify bitwise xor (^) in transliteration (tr///) at /tmp/t line
+ 9, near "tr[\0][\0];"

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