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