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