note
moritz
<p>You need to <c>use </c>[doc://utf8]<c>;</c> to tell Perl that your source file is in UTF-8. That way non-ASCII literal strings work the way you want them to.
<pre>
use strict;
use warnings;
use 5.010;
use utf8;
binmode STDOUT, ':encoding(UTF-8)';
my $str = "ครัวซองเเซนด์วิชไข่ดาว Croissant Egg Sandwich ครัวซองเเซนด์วิชไข่ดาว";
$str =~ s/[^\p{Latin}\p{Common}]//g;
$str =~ s/^\s+|\s+$//g;
say $str;
__END__
Croissant Egg Sandwich
</pre>
<p>See also: [http://perlgeek.de/en/article/encodings-and-unicode|Character Encodings in Perl].
<p><b>Updated</b> to unlinkify the brackets, and to exclude \p{Common} instead of \s from removal.
<!-- Node text goes above. Div tags should contain sig only -->
<div class="pmsig"><div class="pmsig-616540">
[http://perl6.org/|Perl 6 - the future is here, just unevenly distributed]
</div></div>
1005553
1005553