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