$/=words;(put substr "BW"x 99,$+++$2.ord,$0)xx$1