- or download this
utf8::upgrade($_);
/.../i
- or download this
use feature 'unicode_strings';
/.../i
- or download this
use 5.012;
/.../i
- or download this
/.../iu
- or download this
use re '/u';
/.../i
- or download this
use utf8; # Source file is encoded using UTF-8
print "é" =~ /É/i ?1:0,"\n"; # 1
print "É" =~ /é/i ?1:0,"\n"; # 1
print "é" =~ /\w/ ?1:0,"\n"; # 1
print "É" =~ /\w/ ?1:0,"\n"; # 1
- or download this
use utf8; # UTF-8 code
use open ':std', ':encoding(UTF-8)'; # UTF-8 terminal
...
$_ = "LES MISÉRABLES";
s/([^\x00-\x7F])/lc($1)/eg; # LES MISéRABLES
say;