Select Code to Download

@a = split //, 'xx110';
@b = split //, '001xx';
splice @a, ++$i, 0, $_ or $i++ for(@b);
print @a, "\n";