$ perl -l use warnings; use strict; print length 'ñ'; __END__ 2