#!perl -p
s;(\K\w ?){17};\u$&