Select Code to Download

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

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