#!/usr/bin/perl

use utf8;
use Encode;

$\ = "\n";
my $unicodeScalar = "Je suis une chaîne accentuée là où il faut.";

print '['.Encode::is_utf8($unicodeScalar).'] '.$unicodeScalar;