#!perl -p
s// /while($^$_)!~/ {9}|/;$=uc