#!perl -p
s/(\w ?){16}\K./\U$&/