my $str = "1010101011";
my $second = "0$str";
my $xor = $str ^ $second;
my $result = $xor | "0" x length $xor;