$"='314747"7"84561"12"277057"10"53708"12"2466"25"'
;sub _{$;.=chr(rand(24)+64)}while($"){srand$";$"=~
s/.*?"//;rand(24)for(1.."$\"");$"=~s/.*?"//;_()for
(1..5)}$;=~y/BV/ ./;$;=~s/\w+/\u\L$&/g;print$;.$/