#!/usr/bin/perl -w use strict; use warnings; print length('ä'),"\n"; use utf8; print length('ä'),"\n"; no utf8; print length('ä'),"\n";