#!perl -lp
s/\w{5}/E/g+y/F-z /F/d>8&&s/\B/ */g;$_="  F BF  FB F  E"x22~~/$_/&&1+"@-"." @+"