#!/usr/bin/perl
use v5.10;

binmode STDOUT, ":utf8";

my $mark = "Mark";
my $leon = "L\x{e9}on";
my $iloveny = "I \x{2665} NY";

foreach my $v ($mark, $leon, $iloveny) {
    say $v . " is valid"
        if utf8::valid($v);  # consistent bytes or extended utf-8, not mixed

    say $v . " is utf-8"
        if utf8::is_utf8($v);  # consistent bytes or extended utf-8, not mixed
    
}