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