#!/usr/bin/perl
use warnings;
use strict;
use Encode;;

my $octets = "abcd";

my $ustr = Encode::decode('utf8', $octets);

print Encode::is_utf8($ustr)
      ? "is" : "isn't",
      " tagged as a unicode string\n";