$s = 'abcdefghijklmnopqrstuvwxyz';;

@r = map \substr( $s, $_*4, 2), 0..6;;

$$_ = uc $$_ for @r;;

say $s;;
ABcdEFghIJklMNopQRstUVwxYZ

say $];;
5.010001