use Encode qw{ is_utf8 }; # ... say 'Same UTF8 flag: ', is_utf8($s1) == is_utf8($s2);