echo -n š | perl -e    'my $x =<>; print $x, length($x), "\n"'
š2

##</code><code>##

echo -n š | perl -C -e 'my $x =<>; print $x, length($x), "\n"'
š1