in reply to How to concatenate utf8 safely?

Using is_utf8 somewhere outside of Encode is usually wrong. It doesn't tell you whether the string is UTF-8, it tells you how Perl internally keeps the value.

Make sure you have the input encoding layer set up properly, and the same for the output. Then, you can just join the strings safely without any hassle.

BTW, why do you use syswrite instead of print?

($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,

[download]

In Section Seekers of Perl Wisdom