use feature qw( say );
use Encode qw( encode );
say
      encode("UTF-8", "\N{LEFT DOUBLE QUOTATION MARK}")
   eq
      "\342\200\234";

# Output: 1

##</code><code>##

utf8::decode($s);

##</code><code>##

use utf8;

##</code><code>##

use open ':std', ':encoding(UTF-8)';

##</code><code>##

use feature qw( say );
use Encode qw( decode );

no utf8;
my $utf8 = "Triple “S” Industrial Corp";
say length($utf8);   # 30 chars

my $ucp = decode("UTF-8", $utf8);
say length($ucp);    # 26 chars

##</code><code>##

use feature qw( say );
use Encode qw( decode );
use Devel::Peek qw( Dump );

no utf8;
my $utf8 = "Triple “S” Industrial Corp";
say length($utf8);   # 30 chars
Dump($utf8);         # CUR = 30

my $ucp = decode("UTF-8", $utf8);
say length($ucp);    # 26 chars
Dump($ucp);          # CUR = 30