use strict;
use warnings;
use Benchmark qw( cmpthese );

# Make bytes:: functions available, but use character semantics.
use bytes; 
no bytes;

cmpthese(
    100,
    {   bytes => sub { 
            my $smileys = "\x{263a}" x 10_000;
            chop($smileys) while bytes::length($smileys);
        },  
        utf8 => sub { 
            my $smileys = "\x{263a}" x 10_000;
            chop($smileys) while length($smileys);
        },  
    }   
);