Perl 5, 34 33 29 + 1 (-p) = 30 bytes
s/.([^[]*?)](.)/$1x$2/e&&redo
Cut it down with some help from @Shaggy and @TonHospel.
Perl 5,
Xcali
- 16.2k
- 2
- 15
- 39