#!perl -paF
s/./\U$&
/g;s//\U@F/