TMTOWTDI:

@a = split //,'xx110';
@b = split //,'001xx';
print map{$a[$_].$b[$_]}(0..$#a);
[download]

Golf anyone? :-) (My score: 33 not counting splits)
-ase