#!perl -p
s;(\S *){16}\K.;\U$&