s/$/aa/
:
s/.[ a]*/&\U&\E&/g
s/[ aA]./\L&\E&\L&/g
y/A123/ \n12/
/\n/!b
s/.//
y/a/:/